{tady neco habruje, proc netim... moduly me nejak neberou}

uses crt, ialjp_09_01_modul; {zavolame modul testmod}
var z: char;

begin
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
begin
     writeln(TestFunc(PI));

end;
writeln('-----------------------------------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.