Найти большее из 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.