Question

как в Паскале это сделать??

Answer 1

Любым из циклов
 p:=0; 
for s:=2 to 4 do p:=p+s;   

или     
p:=0; s:=2; 
while s < 5 do   
begin     
p:=p+s;     
inc(s);   
end;

или  
p:=0; s:=2; 
repeat   
p:=p+s;   
inc(s); 
until s = 5;

Answer 2

там же знак "меньше", а не "меньше-равняется", поэтому диапазон должен быть от 2 до 4

Answer 3

да я уже исправила, правда все, кроме последнего почему-то