С клавиатуры вводятся два числа a и b. Составить алгоритм сравнения этих чисел. Пожалуйста посчитайте, пожалуйста, срочно

var a,b:integer;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if (a > b) then
writeln('a больше b')
else if (b > a) then
writeln('b больше a')
else
writeln('a равен b');
end.