Задача 4:
var s: integer;
begin
writeln('сумма:');
readln(s);
if (s div 5500 >= 3) then
writeln('Соня сможет купить 3кг апельсинов')
else writeln('Соня не сможет купить 3кг апельсинов');
end.
Задача 5:
var N,M: integer;
begin
writeln('сколько пирожков реализовано?');
readln(N);
writeln('сколько пирожных реализовано?');
readln(M);
if (N*660>M*850) then
writeln('большей была выручка за пирожки')
else
writeln('большей была выручка за пирожные');
end.