3

program Untitled;
uses crt;

var  file1,file2,file3,file4,file5:text; 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');
append(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);
//================================
write('Ievadiet faila nosaukumu: ');
readln(str);

assign(file3, str+'.txt');
reset(file3);
n:=0;
i:=1;
while not eof(file3) do
begin
readln(file3,str);
inc(n);
myarray[i] := str;
inc(i);
end;

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


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

assign(file4, str+'.txt');

reset(file4);
While not Eof(file4) do
begin
readln(file4, str);
if (str[1] = 'R') or (str[1] = 'N') then writeln(str);
end;
close(file4); }
//======================
{write('Ievadiet faila nosaukumu: ');
readln(str);
assign(file5, str+'.txt');
//reset(file5);

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



readln;
end.