Помогите Please написать прогу в Паскале. Опции

[Sanches]

кто может помочь написать эту прогу в паскале??? Очень прошу...


Написать программу, которая выводит пример на вычитание !(в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат. Ниже приведен рекомендуемый вид эк¬рана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом).
Сколько будет 83-17?
Введите ответ и нажмите <Enter>
->67
Вы ошиблись. 83-17=66

Сообщение отредактировано: Sanches - 27.03.2009 22:58

[Гость]

Написать программу, которая выводит пример на вычитание !(в пределах 100), запрашивает ответ пользователя, проверяет его и выводит сообщение "Правильно!" или "Вы ошиблись" и правильный результат. Ниже приведен рекомендуемый вид эк¬рана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом).
Сколько будет 83-17?
Введите ответ и нажмите <Enter>
->67
Вы ошиблись. 83-17=66

var
  a, b, c: integer;

begin
  Randomize;
  a:=Random(100)+1;
  b:=Random(100)+1;
  WriteLn('Сколько будет ',a,'-',b,'?');
  WriteLn('Введите ответ и нажмите <Enter>');
  Write('-> ');
  ReadLn©;
  if c=a-b then WriteLn('Правильно!') else WriteLn('Вы ошиблись. ',a,'-',b,'=',a-b)
end.

[Sanches]

Большое спасибо. очень помогло