Помогите срочно решить!!! Даю 20 балов

Question

Помогите срочно решить!!! Даю 20 балов

---

Answer 1

Ответ:

Смотри файл

Объяснение:

program z1;

var i,s:integer;

begin

s:=0;

for i:=10 to 99 do if i mod 7 = 0 then s:=s+i;

write (s)  

end.