Program uva; var m,k:integer; //объявляются переменные, отвечающие за вес пакетов begin write('Введите массу первого пакета'); read(m); //ввод массы первого пакета write ('Введите массу второго пакета'); read (k); //ввод массы второго пакета if m>k then write ('Масса первого пакета больше второго и равна ', m) else if k>m then write ('Масса второго пакета больше первого и равна ', k) else write ('Массы пакетов одинаковы и равны ', m); //если масса первого //пакета больше, то она выводится на экран иначе если масса второго пакета //больше, то она выводится на экран иначе массы равны и выводится на //экран любия из этих масс end.
var m,k:integer; //объявляются переменные, отвечающие за вес пакетов
begin
write('Введите массу первого пакета');
read(m); //ввод массы первого пакета
write ('Введите массу второго пакета');
read (k); //ввод массы второго пакета
if m>k then
write ('Масса первого пакета больше второго и равна ', m)
else if k>m then
write ('Масса второго пакета больше первого и равна ', k)
else write ('Массы пакетов одинаковы и равны ', m); //если масса первого //пакета больше, то она выводится на экран иначе если масса второго пакета //больше, то она выводится на экран иначе массы равны и выводится на //экран любия из этих масс
end.