Question

Решить в Паскаль. Пожалуйста​

Answer 1

Задача 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.