(Запишите правильный ответ) Определите значение переменной s в результате выполнения...

Question

(Запишите правильный ответ)
Определите значение переменной s в результате выполнения фрагмента программы:
function fn( k:integer):real;
var i, x:integer;
begin
x:=0;
for i:=1 to k do x:=x+i;
fn:=x;
end;
begin
m:=4;
s:=fn(m);
end;

---

Answer 1

В задании ошибка, последний end должен оканчиваться ".", так же s и m не определны. Но ответ вот такой

---