vara,b,i: integer;beginwriteln ('введи два числа');read (a,b);if a>b then writeln (a,'большее число')
else
writeln (b,'большее число') end.
