program tegusona;
var
 koneviis:array[1..4]of string;
 arv, tegumood, kone:array[1..2]of string;
 aeg: array[1..3]of string;
 f: text;
 s: string;
 i, j: integer;
 sonadearv, kordustearv, ylesannetearv: integer;

procedure alusta;
var
 viga: integer;
begin
 randomize;
 ylesannetearv:=3;
 koneviis[1]:=' kindla ';
 koneviis[2]:=' k„skiva ';
 koneviis[3]:=' tingiva ';
 koneviis[4]:=' kaudse ';

 tegumood[1]:=' isikulise ';
 tegumood[2]:=' umbisikulise ';

 kone[1]:=' jaatava ';
 kone[2]:=' eitava ';

 arv[1]:=' ainsuse ';
 arv[2]:=' mitmuse ';

 aeg[1]:=' olevik ';
 aeg[2]:=' lihtminevik ';
 aeg[3]:=' t„isminevik ';

 assign(f, 'sonad.txt');
 {$I-}
 reset(f);
 {$I+}
 if IOResult<>0 then
 begin
  writeln('Sänafail puudub!');
  halt(1);
 end;
 sonadearv:=0;
 while not eof(f) do
 begin
  readln(f, s);
  sonadearv:=sonadearv+1;
 end;

 val(paramstr(1), kordustearv, viga);
 if (viga<>0) then
   kordustearv:=1;

end;


function sona(nr: integer):string;
var
 loendur: integer;
begin
 reset(f);
 loendur:=1;
 while(loendur<nr) do
 begin
  readln(f, s);
  loendur:=loendur+1;
 end;
 readln(f, s);
 sona:=s;
end;




begin
 alusta;
 for i:=1 to kordustearv do
 begin
 writeln('Nimi:                               Kuup„ev:');
 writeln;
  for j:=1 to ylesannetearv do 
  begin
    writeln('Kirjuta ', koneviis[random(4)+1], 'käneviisi',
          tegumood[random(2)+1],' tegumoe ',
          kone[random(2)+1], ' käne ');
    writeln(arv[random(2)+1], aeg[random(3)+1], ' sänast ',
         sona(random(sonadearv)+1),'!');
    writeln;
  end;
  writeln; writeln; writeln;
 end;
end.