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

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

Напишите функцию, которая возвращает сумму трёх целых чисел.

var a, b, c  :integer;
  function summ3(q, w, e:integer): integer;
  begin
    result := q + w + e;
  end;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  writeln(summ3(a,b,c));
  readln();
end.