program Latihan_file;
uses wincrt;
var
ftext:text;
begin
assign(ftext,'Latihan.txt');
rewrite(ftext);
writeln(ftext,'=>LATIHAN BROOOO<=');
writeln(ftext,'==================');
writeln(ftext,'SAYA LAGI BELAJAR');
writeln(ftext,'SAYA LAGI SIBUKKK');
writeln(ftext,'<===============>');
close (ftext);
end.
Tidak ada komentar:
Posting Komentar