Где ошибка var x,y,i,s,d,n,p: integer; begin randomize; for i: =1 to 10 do begin x: =random(8)+2; y: =random(8)+2; p: =0; n: =0; writeln ('сколько будет ',x,'*',y,'='); read (s); if s=x*y then p: =p+1; begin writeln (': ) правильно'); d: =d+1; end; if s< > x*y then n: =n+1; begin writeln (': ( неправильно,',x,'*',y,'=',x*y); end; writeln('количество правильных ответов: ',p); writeln('количество неправильных ответов: ',n); if (d=10) or (d=9) then writeln ('ваша оценка за тест 5'); if (d=8) or (d=7) then writeln ('4'); if (d=6) or (d=5) then writeln ('3'); if (d=4) or (d=3) or (d=2) or (d=1) or (d=0) then writeln ('2'); end; end.
там куча ошибок, нате, разбирайтесь