Программа на Pascal:
program heavy;
var m, n:real;
begin
writeln('Введите массу первого и второго мешка...');
readln(m,n);
if m>n then
writeln('Первый мешок тяжелее');
end
else
writeln('Второй мешок тяжелее');
end.
Программа на Pascal:
program heavy;
var m, n:real;
begin
writeln('Введите массу первого и второго мешка...');
readln(m,n);
if m>n then
begin
writeln('Первый мешок тяжелее');
end
else
writeln('Второй мешок тяжелее');
end.