Contoh Program Pascal

Untuk mengakses menu dari program pascal Anda gunakan tombol ALT di ikuti dengan Huruf pertama yang berwarna merah, contoh Anda akan mengakses menu File maka Anda dapat mengaksesnya dengan menekan tombol ALT dan huruf F. sekarang tekanlah tombol ALT+E, maka Anda berada pada mode editor, dan PASCAL siap untuk menerima perintah-perintah Program Anda. Sebagai perkenalan coba Anda ketikan program dibawah ini di editor PASCAL.

{ Program   : Input dari keyboard dan Menghitung operasi matematika }
{ Create by : Komarudin_surya@suryatekno }

uses Crt;
var
x,y,z    :  longint;
lagi     :  char;
namak    :  string[20];

begin
lagi  :=  'y';
 while (lagi  =  'y') or (lagi  =  'Y') do
 begin
 clrscr;
   write('Siapa Nama Anda..?');  ReadLn(namak);
   writeLn;
   write('Hallo ',namak,', Coba kamu');
   WriteLn(' masukan nilai x,y dan z ');
   writeLn('pada operasi matematika ini.');
   writeLn;
   writeLn('Operasi matematika X^2 + y^2 + z =..... ');
   write('masukan nilai x..= '); ReadLn(x);
   write('masukan nilai y..= '); ReadLn(y);
   write('masukan nilai z..= '); ReadLn(z);
   writeLn;
   writeLn('nilai operasi x^2 + y^2 + z adalah : ',x*x+y*y+z);
   writeLn;
   write('Mau hitung lagi apa tidak (y/t), ',namak,' ? ');
  readLn(lagi);
 end;
end.