Рис расфасован в два пакета вес 1-m кг вес 2-k кг определить какой пакет тяжелее и вес более тяжелого пакета

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.

Вес 2-k кг тяжелее, чем 1-m кг