Где ошибка
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.

там куча ошибок, нате, разбирайтесь