Contoh Membuat Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai dengan menggunakan bahasa Pascal

uses crt;

var
  nilai, i, jum, min, max: integer;
  rata: real;

begin
  writeln('Program mencari Jumlah, Rata-rata, nilai terkecil dan Terbesar untuk 10 Nilai');
  writeln;
  jum:=0;  min:=999; max:=0;

  for i:= 1 to 10 do begin
    write('Nilai ke-',i,'= '); readln(nilai);

    jum:=jum+nilai;

    if(nilai<min) then min:=nilai;
    if(nilai>max) then max:=nilai;
  end;

  rata:=jum/10;
  writeln;
  writeln('Jumlah   : ' , jum);
  writeln('Rata-rata: ' , rata:7:1);
  writeln('Terkecil : ' , min);
  writeln('Terbesar : ' , max);
end.

//Atau dengan menggunakan perintah while

uses wincrt;
var
i,nilai,min,max,jum:integer;
rata:real;
lagi:char;
begin

lagi:='y';
while (lagi='y') or (lagi='Y') do
begin
clrscr;
writeln('masukan 5 angka bilangan bulat dibawah ini:');
min:=999; max:=0; jum:=0;
 for i:=1 to 5 do
 begin
 write(' Data ke_',i,' = ');
 readln(nilai);
 jum:=jum+nilai;
 
 if (nilai<min) then min:=nilai;
 if (nilai>max) then max:=nilai;


 end;
writeln;
writeln(' Jumlah semua   = ',jum);
writeln(' Rata2          = ',jum/5:0:2);
writeln(' Nilai terkecil = ',min);
writeln(' Nilai terbesar = ',max);
write(' Apakah akan mengulang lagi?y/n...');
readln(lagi);
end;
writeln('     ===== TRIMA KASIH =====');
end.

Contoh Membuat Program penghitungan Gaji dengan menggunakan bahasa Pascal

// Contoh Membuat Program penghitungan Gaji  dengan menggunakan bahasa Pascal

program gaji_bersih;
uses wincrt;
var
g,gaji,tunjangan,pajak:real;
nm:string;

begin
gotoxy(4,3);
write('Masukan Nama : ');
readln(nm);
write('Masukan Gaji ',nm,' = ');
readln(gaji);
tunjangan:= 0.2 *gaji;
pajak:= 0.15 * (gaji + tunjangan);
g:= gaji + tunjangan - pajak;
writeln;
writeln(nm,' Gaji bersih = Rp.',g:7:2);
end.