Кто может помочь с заданием по информатике в паскале?Задать компьютеру решение

Var  a,b,p,n,x,i:integer;
begin
writeln('Сколько образцов будешь решать:');
readln(n);
for i:=1 to n do
  begin
  a:=random(10)+1;
  b:=random(10)+1;
  write('Сколько будет ',a,'+',b,'=');
  readln(x);
  if x=a+b then
    begin
    p:=p+1;
    writeln('Верно');
    end
    else writeln('Ошибочно');
  end;
writeln('Число правильных ответов: ',p);
if p=n then writeln('Отлично, ты отлично знаешь арифметику');
if (plt;n) and (p/ngt;0.75) then writeln('Хорошо, ты неплохо знаешь арифметику');
if (p/nlt;=0.75) and (p/ngt;0.5) then writeln('Удовлетворительно, ты средне знаешь математику');
if (p/nlt;=0.5) and (pgt;0) then writeln('Плохо, ты не знаешь математику');
if p=0 then writeln('Гадко, ты абслютно не знаешь арифметику');
end.

Можно сделать, чтобы не только на сложение, а на все 4 деяния.