rofish1.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

var f:text;
    nr,n :integer;
begin
assign(f,'f1.txt');
reset(f);
while not eof(f) do
                 begin
                 nr:=nr+1;
                 while not eoln(f) do
                                   begin
                                   inc(nr);
                                   read( f,n);
                                   end;
                 write(nr, ' ');
                 readln(f);
                 end;
close (f);
readln;
end.