Объяснение:
Program Primer
var s, k : integer;
BEGIN
s := 0;
for k := 1 to 5 do
begin
s := s+2*k;
end;
writeln ('s := ', s);
END.
В программе считается сумма чисел от 1 до 5, умноженных на 2.
s = 2 + 4 + 6 + 8 + 10 = 30
Будет выведено
s := 30