program losowanie_pytan;

{Losowanie trzch pytan z przedzialu od 1 do 30
n-ilosc pytan
k-ilosc losowan
x-czy zakonczyc}

uses crt;

var
i,k,n:integer;
pytanie:real;
x:char;

begin

  k:=3;
  n:=30;
  x:='a';

  randomize;

  while x<>'t' do
  begin
    for i:=1 to k do
    begin
      pytanie:=random(29)+1;
      write(pytanie:3:0,' ');
    end;

    writeln;
    writeln('Czy zakonczyc t/n');
    x:=readkey;
  end;

  repeat until keypressed;

end.