Рис расфасован в два пакета. С клавиатуры вводятся веспервого пакета m

var 
m,n: integer; 
begin 
read(m,n); 
if m gt; n then 
begin 
writeln('1 paket tyajelee'); 
writeln('Ves tyajologo bolee paketa = ',m); 
end ;

if m lt; n then 
begin 
writeln('2 paket tyajelee'); 
writeln('Ves tyajologo bolee paketa = ',n); 
end; 
readln; 
end.