Question

Помогите, пожалуйста. последние баллы отдаю​

Answer 1

1)

program Hi;

var S, i: integer;

begin

   for i:=5 to 26 do begin

   write(i,' ');

   S+=i;

   end;

   write('S=',S)

end.

2)

program He;

var i, S: integer;

begin

   S:=20;

   for i:=0 to 6 do begin

   write(S,' ');

   S+=20

   end

end.

Задача 4) 59

Задача 5) 120