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 16:53

[volvo]

Используя функции вот отсюда: Общие вопросы по математике.

Var
   raznost: string; {rezultat vichisleniy}
   proverka: string; {pravilniy otvet}

Begin

   writeln ('skolko budet 100-20 ?');
   writeln ('vvedite otvet i nazhmite ENTER');
   readln  (raznost);

   proverka:=fromdec(todec('100', 6) - todec('20', 6), 6);
   if raznost=proverka then writeln (raznost, ' - pravilniy otvet')
                       else writeln (raznost, ' - nepravilniy otvet');

   readln;
End.

[Psychologist]

Ругается на "fromdec".
Пишет: "Error 3: Unknown identifier."...

[volvo]

Я же дал ссылку, оттуда возьми обе функции и добавь перед программой...