Найти большее из 2-х чисел

Вот решение на Pascal:
program bolshee;
  uses crt;
  var a, b: integer;
begin
  clrscr;
  writeln('Введите 2 числа: ');
  readln(a,b);
  if a>b then
 writeln(a) else writeln(b);
end.