Урок 14.1 Задание 1

Задание 1 Урок 14.1

Напишите процедуру, которая просит пользователя ввести три числа, и потом выводит их в обратном порядке

program Hello;

procedure pishi();
var a,b,c: integer;
begin

  writeln ('Vvedite cheloe chislo');
  readln (a);
  writeln ('Vvedite cheloe chislo');
  readln (b);
  writeln ('Vvedite cheloe chislo');
  readln (c);
  
  writeln(c,b,a);
end;

begin
pishi();
writeln ('Konec!');
end.

Консоль:

Введите чело число
4
Введите чело число
6
Введите чело число
8
864
Конец!