Составить программу на паскале которая находит большее из двух чисел

vara, b: integer;beginwrite ( \'Введите первое число: \' );readln ( a );write ( \'Введите второе число: \' );readln( b );if a < b then write ( \'Второе число больше, чем первое.\' )else write ( \'Первое число больше, чем второе.\' );if a = b then write ( \'Числа равны.\' )end.