darbs

program Untitled;
uses crt;

var  file1,file2:text;file3:file of char; str,str2:string; n,i,x:integer; C:char; myarray: array[1..256] of string;

begin

{write('Ievadiet faila nosaukumu: ');
readln(str);

assign(file1, str+'.txt');
reset(file1);} {
i:=1;
while not eof(file1) do
begin
readln(file1,str);
myarray[i] := str;
inc(i);
end;
 close(file1); }
{reset(file1);
for x:=1 to 3 do
begin
write('Ievadiet rindas numuru: ');
readln(n);
writeln(myarray[n]);
end;



close(file1);  }


//================================
write('Ievadiet faila nosaukumu: ');
readln(str);

write('Ievadiet N: ');
readln(n);

assign(file2, str+'.txt');
reset(file2);

{for i:=1 to n-1 do readln(file2,str);
readln(file2,str2);
writeln(str2);
writeln(str);
close(file2);
//================================

n:=0;
i:=1;
while not eof(file2) do
begin
readln(file2,str);
inc(n);
myarray[i] := str;
inc(i);
end;

for x:=n downto 1 do writeln(myarray[x]);   }

//========================
{reset(file2);
While not Eof(file2) do
begin
readln(file2, str);
if (str[1] = 'R') or (str[1] = 'N') then writeln(str);
end;
close(file2); }

reset(file2);
While not Eof(file2) do
begin
n:=0;
i:=0;
readln(file2, str);
while str[i] <> '\0' do
begin
if str[i] = ' ' then inc(n);
inc(i);
end;
if n>14 then writeln(str);
end;
close(file2);



readln;
end.