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 (p<n) and (p/n>0.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 действия.
Begin
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');
Readln(a);
Case a of
1: writeln(b,' янавря');
2: writeln(b,' февраля');
3: writeln(b,' марта ');
4: writeln(b,' апреля ');
5: writeln(b,' мая');
6: writeln(b,' июня ');
7: writeln(b,' июля');
8: writeln(b,' августа');
9: writeln(b,' сентября');
10: writeln(b,' октября');
11: writeln(b,' ноября');
12: writeln(b,' декабря');
else writeln('Месяца №', a,'нет');
end;
end.