q: = four;
Writeln ('Загальна вартість покупок в зазначеному місці за вказаний час одно', q, 'рублів');
end;
end else Writeln ('Такої команди не існує');
