program lottoszam;
uses crt;
var
   a,i:byte;
   k:char;
begin
     clrscr;
     repeat
           for i:=1 to 5 do
               begin
               a:=random(89)+1;
               write(a,', ');
               end;
     writeln('Kilepeshez nyomd a "k"billentyut!');
     readln(k);
     until k<>'k';
end.