ВК
Валентина Калайгерда
целеком писать не буду, но как-то так:
pos,result:integer;
pos:=5;
result::=0;
while pos<=200 do
begin
result:=result+pos;
pos:=pos+5;
end;
В конце цикла в переменной result будит искомое число.