Программа для 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.