Задача 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.
Вывод консоли: