написать программу которая выводит пример на умножение однозначных чисел если не правильно то пишет не правильно и верный ответ ,а если правильно то правильно

var  k,m,n:integer;begin  Writeln('Проверка знания таблицы умножения');  Writeln('Вводите ответ или 0 для окончания работы');  Randomize;  repeat    k:=Random(9)+1;    m:=Random(9)+1;    Write(k,' x ',m,' = '); Read(n);    if n<>0 then      if n=k*m then Writeln('Верно!')      else Writeln('Неверно, ответ ',k*m)  until n=0;  Writeln('Всего доброго, приходите еще!')end.