Кто может помочь с заданием по информатике в паскале?Задать компьютеру решение примера в форме диалога при.Использовать переменные типа string и integer.Например:- Сколько будет 2+2- 4- Молодец! Другой вариант  ответа- Сколько ...

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 (p0.75) then writeln('Хорошо, ты неплохо знаешь арифметику'); if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику'); if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику'); if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику'); end. Можно сделать, чтобы не только на сложение, а на все 4 действия.