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

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

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

var a,b,c:integer;
procedure podprogsum(q,w,e:integer);
var f:integer;
begin
    f:=q+w+e;
    writeln('summa = ',f);
    readln();
end;
begin
   writeln('vvedite a');
   readln(a);
   writeln('vvedite b');
   readln(b);
   writeln('vvedite b');
   readln(c);
   podprogsum (a,b,c);
end.

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

vvedite a
5
vvedite b
23
vvedite b
1
summa = 29