Kumpulan Program Pascal

Bismillah, sahabat blogger saya ingin sharing source code pascal ini dia :

program hallo;
begin
writeln('Hallo, SELAMAT DATANG!!!');
write('Anda sedang menggunakan pascal');
readln;
end.

program penjumlahan ;
uses
    crt;
begin
    clrscr;
    writeln('Penjumlahan dua bilangan');
    write('6+4');
    write('=');
    write(6+4);
    readln;
end.

program tulis_alamat;
begin
    writeln('Teknik Informatika');
    write('Fakultas Teknik');
    writeln('Universitas Siliwangi');
    writeln;
    write('Jl. Siliwangi No. 24 Tasikmalaya');
    readln;
end.

program bintang;
begin
writeln('      *');
writeln('    * * *');
writeln('  * * * * *');
writeln('* * * * * * *');
readln;
end.

program identitas_mhs;
begin
write('Nama : ');
writeln('Dadang');
write('NPM : ');
writeln('107006000');
write('Kelas : ');
writeln('1 A');
readln;
end.

program hitung;
uses
crt;
begin
clrscr;
writeln('***Program Hitung***');
writeln('====================');
write('    120+12');
write('=');
writeln(120+12);
write('    120-12');
write('=');
writeln(120-12);
write('    120x12');
write('=');
writeln(120*12);
write('    120/12');
write('=');
write(120/12:0:2);
readln;
end.