 tikiin 
                                                07.04.2020 12:13
                                                
                                                tikiin 
                                                07.04.2020 12:13
                                             Алимакдр 
                                                07.04.2020 12:11
                                                
                                                Алимакдр 
                                                07.04.2020 12:11
                                             anastasia1medvedeva 
                                                07.04.2020 12:09
                                                
                                                anastasia1medvedeva 
                                                07.04.2020 12:09
                                             ppn01012014 
                                                03.11.2020 22:05
                                                
                                                ppn01012014 
                                                03.11.2020 22:05
                                             liliya15nafikova 
                                                20.09.2019 05:40
                                                
                                                liliya15nafikova 
                                                20.09.2019 05:40
                                             Aidanok1 
                                                30.07.2020 15:23
                                                
                                                Aidanok1 
                                                30.07.2020 15:23
                                            
Смотри картинку
Объяснение:
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 можно не ставить