Minggu, 18 November 2012
program dedy;
{$APPTYPE CONSOLE}
uses
SysUtils;
begin
writeln('====================================================================');
writeln('== + ******* ******* =');
writeln('== *** ******** ******* =');
writeln('== ***** *** ** *** =');
writeln('== ******* *** ** ***** =');
writeln('== ********* *** ** *** =');
writeln('== *********** ******** ******* =');
writeln('== ************* ****** ******* =');
writeln('== ********* =');
writeln('== *********** ******* *** *** =');
writeln('== ************* ********* *** *** =');
writeln('== *************** *** ** *** *** =');
writeln('== ***************** *** ** ***** =');
writeln('== ******************* *** ** *** =');
writeln('== ***************** ******** *** =');
writeln('== ******************* ******* *** =');
writeln('== ********************* =');
writeln('== *********************** **** ****** =');
writeln('== ************************* ***** ****** =');
writeln('== *************************** *** *** =');
writeln('== | | *** ***** =');
writeln('== | | *** *** =');
writeln('== | | ***** ****** =');
writeln('== ________________ ******* ****** =');
writeln('== ________________________ =');
writeln('== =');
writeln('====================================================================');
writeln(' ');
write ('masukkan NIM anda;');readln;
write ('masukkan nama anda;');readln;
write ('masukkan kelas anda;');readln;
write ('masukkan alamat anda;');readln;
write ('masukkan asal sekolah anda;');readln;
write (' ;');readln;
write (' ;');readln;
writeln('**********terima kasih**********');
readln;
readln;
end.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar