var
a,b : integer;
begin
writeln('введите 1 число ');
readln(a);
writeln('введите 2 число');
readln(b);
if a>b then
y:=a+1;
writeln('1 число больше',y)
else
y:=b+1;
writeln(' 2 число больше ',y);
end;
end.
var
a,b : integer;
begin
writeln('введите 1 число ');
readln(a);
writeln('введите 2 число');
readln(b);
if a>b then
begin
y:=a+1;
writeln('1 число больше',y)
else
begin
y:=b+1;
writeln(' 2 число больше ',y);
end;
end;
end.