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

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