подсчитайте в переменной s сумму 14 первых чисел в последовательности 20; 26; 32; 38; 44 и так далее

Смотри картинку

Объяснение:

program primer1;

var x,y,s:integer;

begin

y:=1;

x:=20;

s:=0;

while y<15 do

begin

s:=s+x;

x:=x+6;

y:=y+1

end;

writeln(s)

end.

y<15 можно заменить на y<=14

; перед end можно не ставить