" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
uses crt;
var plik: text;
Begin
assign (plik,'C:\NAZWA_PLIKU');
rewrite(plik);
begin
writeln(plik,'imie i nazwisko');
clrscr;
write('Dane zostaly zapisane!');
close(plik);
readkey;
End.