Дано 2 числа,ввести ** экран большее из них

Question

Дано 2 числа,ввести на экран большее из них

Answer 1

Var
a,b:integer;
begin
write('введите два числа');
readln(a,b);
if a>b then writeln(a);
if b>a then writeln(b);
if a=b then writeln('эти числа равны');
end.