Pascal создайте программу что бы найти большую из двух чисел

var a,b:integer;beginwriteln('Введите 2 числа');readln(a,b);if a>b then writeln('Первое число больше второго');if a<b then writeln('Второе число больше первого')elsewriteln('Числа равны');end.