Даны два числа А и В. Найти наибольшее из них.

program prim 1;
  uses crt;
{Описываем переменные А и В как целые.}
  var a, b: integer;
begin
  clrscr;
{Вводим два целых числа.}
  writeln('введите 2 числа');
  readln(a,b);
{Если А>В, то выводим на экран А, иначе В.}
  if a>b then writeln(a) else writeln(b);
end.