program faktura_Vat;
uses crt;
type towar = record
     nazwa: string[30];
     cena_netto:real;
     ilosc:integer;
     wartosc_netto:real;
     stawka_vat:integer;
     wartosc_brutto:real;
     end;

     fakturaVAT = record
     data:string[20];
     towary:array[1..10] of towar;
	 liczba_towarow:integer;
     netto:real;
     podatek:real;
     brutto:real;
     end;

var faktura: fakturaVAT;
    ile_pozycji:integer;
    i:integer;
begin
  clrscr;
  write('Data wystawienia: '); readln(faktura.data);
  writeln('Ile pozycji faktury:'); readln(faktura.liczba_towarow);
  for i := 1 to faktura.liczba_towarow do
  begin
    write('Nazwa towaru: '); readln(faktura.towary[i].nazwa);
    write('Cena: '); readln(faktura.towary[i].cena_netto);
    write('Ilosc: '); readln(faktura.towary[i].ilosc);
    write('VAT: '); readln(faktura.towary[i].stawka_vat);
  end;

  readkey;
end.