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