program Latihan_menambah_file;
uses wincrt;
var
ftext:text;
begin
assign(ftext,'Latihan.txt');
append (ftext);
writeln;
writeln(ftext,'=>LATIHAN BROOOO<=');
writeln(ftext,'==================');
writeln(ftext,'MASUK ANGIN');
writeln(ftext,'BALING');
writeln(ftext,'<===============>');
close (ftext);
end.
Tidak ada komentar:
Posting Komentar