Ярил дубок по икт кароч,я туплю тут полчаса,и не понимаю ничего. хелп,найдите ошибки и напишите как правильно. program d; var s,i,n,x ; integer; begin s; =0; a: =8; read(n); for i=1 to n do begin s: =s+a/2; writeln('s=',s); end

У тебя s;=0; следует s:=0;

program d;
var s,i,a,N:integer;
begin
s:=0;
a:=8;
read(N);
for i:=1 to N do begin
s:=s+a mod 2;
writeln('s=',s);
end

Как-то так. Сама проходила тот ужас, так что понимаю вас.