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

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

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

procedure podprog();
var a,b,c:integer;
begin
  writeln('vvedite chislo');
  readln(a);
  writeln('vvedite chislo');
  readln(b);
  writeln('vvedite chislo');
  readln(c);
  writeln(c,b,a);
end;
begin
   podprog();
   writeln('End');
   readln();
end.

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

vvedite chislo
1
vvedite chislo
3
vvedite chislo
5
531
End