Преобразовать алгоритм в программу на языке Паскаль

Кстати, кривоватый алгоритм: введите два одинаковых числа и увидите.

var a,b:real;beginreadln (a,b);if a<b then writeln ('число ',a,' меньше числа ',b)else writeln('число ',b,' меньше числа ',a)end.

Если посмотреть, то практически русские слова заменили английскими.PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!program Задача;begin  var a,b:real;  Read(a,b);  if a<b    then Writeln('число ',a,' меньше числа ',b)    else Writeln('число ',b,' меньше числа ',a)end.На самом деле можно написать и несколько покорочеbegin  var (a,b):=ReadReal2;  if a<b then Writeln('число ',a,' меньше числа ',b)  else Writeln('число ',b,' меньше числа ',a)end.