[@Jlo6aH]

эммм
ну
S:= 0;
b:= 0; присваиваю этим переменным значение 0, хз, мб и не надо, но я привык так

for x:=1 to 7 do begin
b:=b+3;
S:=S+b;

это цикл, в переводе на русский - для икс равного 1 до семи делать:
b:=b+3;
S:=S+b;