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.
