program ucz;
uses crt,sysutils;
var
a,b: integer;
c: string;
wyjscie: boolean;
begin
writeln('wpisz koniec aby wyjsc z programu');
repeat
randomize();
a:=random(100);
b:=random(100);
write(a, ' razy ', b, 'rowna sie?');
readln(c);
if c = 'koniec' then wyjscie:=true
else begin
if strtoint(c) = a*b then writeln('dobrze') else writeln('zle');
end;
until wyjscie=true;
end.

michal@michal-desktop:~$ fpc ucz.pas
Free Pascal Compiler version 2.0.4 [2006/08/22] for i386
Copyright (c) 1993-2006 by Florian Klaempfl
Target OS: Linux for i386
Compiling ucz.pas
Linking ucz
20 Lines compiled, 0.3 sec
michal@michal-desktop:~$

program ucz;
uses crt;
var
a,b,c: integer;
d:char;
wyjscie: boolean;
begin
wyjscie:=false;
repeat
randomize();
a:=random(100); //wylosuj liczbe od 0 do 100
b:=random(100); //j.w.
write(a, ' razy ', b, 'rowna sie?');
readln(c);
if c = a*b then writeln('dobrze') else writeln('zle');
write('zakonczyc program(t/N)?');
readln(d);
if d = 't' then wyjscie:=true;
until wyjscie=true;
end.

program ucz;
uses crt;
var
  a,b,c: integer;
  d:char;
  wyjscie: boolean;
begin
  wyjscie:=false;
  repeat
    randomize();
    a:=random(100); //wylosuj liczbe od 0 do 100 (?)
    b:=random(100); //j.w.
    write(a, ' razy ', b, 'rowna sie?');
    readln(c);
    if c = a*b then writeln('dobrze') else 
      begin
        writeln('zle');
        writeln('Prawidlowy wynik to: '+IntToStr(a*b));
      end;
    write('zakonczyc program(T/N)?');
    readln(d);
    if d = 't' then 
      wyjscie:=true;
  until wyjscie=true;
end.

random(100)

random(10)