Склавиатуры вводятся два числа 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.