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