Проверка знаний таблицы умножения

var a,b, res : integer;
 begin
  writeln('Äîáðî ïîæàëîâàòü íà ïðîâåðêó òàáëèöû óìíîæåíèÿ.');
  writeln('Ââîäèòå ðåçóëüòàò è ïðîâåðÿéòå ñâîè çíàíèÿ. Ââåäèòå 0, ÷òîáû âûéòè.');
  repeat
  a:= random(9)+1;
  b:= random(9)+1;
  write(a,' óìíîæèòü íà ',b,' = ');
  readln(res);
  if res= a*b then writeln('Ïðàâèëüíî!')
  else writeln('Íåïðàâèëüíî. Ïðàâèëüíûé îòâåò - ',a*b);
  until res=0;
 end.

var a,b, res : integer;
 begin
  randomize;
  writeln('Äîáðî ïîæàëîâàòü íà ïðîâåðêó òàáëèöû óìíîæåíèÿ.');
  writeln('Ââîäèòå ðåçóëüòàò è ïðîâåðÿéòå ñâîè çíàíèÿ. Ââåäèòå 0, ÷òîáû âûéòè.');
  repeat
  a:= random(9)+1;
  b:= random(9)+1;
  write(a,' óìíîæèòü íà ',b,' = ');
  readln(res);
  if res= a*b then writeln('Ïðàâèëüíî!')
  else writeln('Íåïðàâèëüíî. Ïðàâèëüíûé îòâåò - ',a*b);
  until res=0;
 end.

var com, your: integer;
 begin
  randomize;
  com:= random(99)+1;
  while your<>com do begin
    write('Ââåäèòå ÷èñëî îò 1 äî 99 --> ');
    readln(your);
    if your>com then writeln('Çàãàäàííîå ÷èñëî ìåíüøå ââåäåííîãî. Ïðîáóéòå åùå.');
    if your<com then writeln('Çàãàäàííîå ÷èñëî áîëüøå ââåäåííîãî. Ïðîáóéòå åùå.');
   end;
  writeln('Óãàäàë! Òåïåðü ìîæåøü æàëåòü î ïîòðà÷åííîì âðåìåíè.');
  readln;
 end.

var a,b, res : integer;
 begin
  randomize;
  writeln('Äîáðî ïîæàëîâàòü íà ïðîâåðêó òàáëèöû óìíîæåíèÿ.');
  writeln('Ââîäèòå ðåçóëüòàò è ïðîâåðÿéòå ñâîè çíàíèÿ. Ââåäèòå 0, ÷òîáû âûéòè.');
  while res <> 0 do begin
    a:= random(9)+1;
    b:= random(9)+1;
    write(a,' óìíîæèòü íà ',b,' = ');
    readln(res);
    if res= a*b then writeln('Ïðàâèëüíî!')
    else writeln('Íåïðàâèëüíî. Ïðàâèëüíûé îòâåò - ',a*b);
   end;
 end.