Отредактировать ! найдите сумму первых 12 членов ариф.прогрессии, заданной формулой а=7-3*n.

ответ: -150
У Вас ошибка в присвоении переменной s (отсутствует знак '=')

var i,a,n,z,s:real; 
begin 
write('n=');readln(n); 
a:=7-3*1; 
z:=7-3*n; 
s:=((a+z)*n)/2; 
writeln('s=',s); 
end.