Задача контролирующая программа. Предлагаеться 10 задач на сложение двух целых двузначных .Числа задаются случайным образом.Каждый ответ комментируется -правильно или вы ошиблись.после выполнения всех заданий выдаётся количество правильных ответов и выставляются оценки. Язык поскаль,делфи.

В данной программе генерируется рандомный пример и если вы его правильно решите то будет у вас 5)

Маленькая ошибочка была, исправил.

var a,b,c,i,sum,cp:integer;beginsum:=0;cp:=0;Randomize;writeln('Посчитайте сложение:');while i<10 dobegina:=random(40)+10;b:=random(60)+10;sum:=a+b;write('Сколько будет ',a,'+',b,'= ');read(c);if c=sum then begincp:=cp+1;writeln('Молодец!');end else writeln('Неправильно');i:=i+1;end;writeln('Всего правильных ответов ',cp);write('Оценка:');if (cp<=4) then write('Очень плохо (2)') elseif (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') elseif (cp>=7) and (cp<=8) then write('Хорошо (4)') elseif (cp>=9) then write('Отлично! (5)');end.