Смотри картинку
Объяснение:
program primer1;
var x,y,s:integer;
begin
y:=1;
x:=20;
s:=0;
while y<15 do
s:=s+x;
x:=x+6;
y:=y+1
end;
writeln(s)
end.
y<15 можно заменить на y<=14
; перед end можно не ставить
