Урок 14.1 Задача 1

Урок 14.1 Задача 1:

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

procedure vivod();
var a, b, c: integer;
begin
  writeln('Введите три числа: ');
  readln (a, b, c);
  writeln('Три числа в обратном порядке: ');
  writeln(c);
  writeln(b);
  writeln(a);
end;

begin      // тело программы
  vivod(); // вызываем процедуру
  readln ();
end. 

Вывод в консоли:

Введите три числа:
7
12
2
Три числа в обратном порядке:
2
12
7