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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.