Поделитесь своими знаниями, ответьте на вопрос:
Где ошибка 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.
там куча ошибок, нате, разбирайтесь