wyrob(towar1, 10, 10).
wyrob(towar2, 50, 220).
wyrob(towar3, 120, 500).
wyrob(towar4, 110, 80).

write_plik :- tell(towary), do_write, told.

do_write :- wyrob(Nazwa, Kod, Cena), write([Nazwa, Kod, Cena]), write(.), nl, fail.