Задаётся пример, пользователь должен решить его (ввести ответ). Программа сверяет ответ пользователя и результат собственных вычислений, и выводит ответ "Правильно" или "Неправильно".
Всё очень просто, если бы в условии задачи не было "действия производятся в 6' с/с."...
Даже не знаю, с какой стороны подойти...
Program OAIP_prakt_01;
Var
raznost : Integer; {rezultat vichisleniy}
proverka : Integer; {pravilniy otvet}
Begin
writeln ('skolko budet 100-20 ?');
writeln ('vvedite otvet i nazhmite ENTER');
readln (raznost);
proverka:=100-20;
if raznost=proverka then writeln (raznost, ' - pravilniy otvet')
else writeln (raznost, ' - nepravilniy otvet');
readln;
End.