6' система счисления., Небольшая задачка Опции

[Psychologist]

Помогите, плз, переделать простенькую задачку:
Задаётся пример, пользователь должен решить его (ввести ответ). Программа сверяет ответ пользователя и результат собственных вычислений, и выводит ответ "Правильно" или "Неправильно".
Всё очень просто, если бы в условии задачи не было "действия производятся в 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.

Сообщение отредактировано: Psychologist - 11.12.2007 20:53