Someone

program antrauzduotis;
var stotelpav:string[15];
    stotelsk,vlnval,vlnmin,k,l,r:integer;
    stotelpavmas:array[1..100] of integer;
          atstumasmas:array[1..100] of integer;

procedure nuskaitymas;

      var greitis:integer;
          atstumas:real;
          failas:text;
          failopath:string;

          
    begin
      failopath:='c:\Duom2.txt';
      assign(failas,failopath);
      reset(failas);
      readln(failas,stotelsk,greitis,vlnval,vlnmin);
      
      while not EOLN(failas) do

          begin
          
    
nuskaitymas;
l:=0;

for l:=1 to k do begin

writeln(stotelpavmas[l],atstumasmas[l],stotelsk,vlnval,vlnmin);  end;
readln;
    



end.