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