Программа для Pascal abc Запросить два числа затем запросить их произведение если...

Question

Программа для Pascal abc
Запросить два числа затем запросить их произведение если пользователь ошибся повторить запрос

Answer 1

Program p1;
var a,b,p,otv,o:integer;
begin
o:=0;
WriteLn('Введите первое число');
ReadLn(a);
WriteLn('Введите второе число');
ReadLn(b);
p:=a*b;
WriteLn('Введите ответ ' ,a, ' * ' ,b);
while o=0 do
  begin;
  readln(otv);
  if otv = p then o:=1
  else WriteLn('Ответ неверный, попробуйте снова');
  end;
WriteLn('Ответ верный');
end.