Question

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

Answer 1

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

Answer 2

Если посмотреть, то практически русские слова заменили английскими.

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.

Answer 3

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