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

Задать компьютеру решение примера в форме диалога при.

Использовать переменные типа string и integer.

Например:

- Сколько будет 2+2

- 4

- Молодец!

Другой вариант ответа

- Сколько будет 2+2

- 3

- Учи математику!

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/n0.5) then writeln ('Удовлетворительно, ты средне знаешь арифметику') ;

if (p/n0) then writeln ('Плохо, ты не знаешь арифметику') ;

if p=0 then writeln ('Отвратительно, ты абслютно не знаешь арифметику') ;

end.

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