Syntax bilangan bulat dengan Pascal

Hallo semua... kali ini saya akan memberikan contoh program pascal untuk menampilkan bilangan bulat.
Berikut contoh syntax programnya.

program bilanganbulat ;
uses wincrt ;
var pilih:char ;

begin
writeln (‘program tinggal pilih ‘) ;
write(‘[1]jumlah,[2]kali,[3]bagi’);
readln(pilih);
case pilih of
‘1’=’tambah’;
‘2’=’kali’;
‘3’=’bagi’;
else
write(‘jangan lupa baca perintahnya!!!oke.oke!!!’);
end;

procedure jumlah;
var bil1,bil2,hasil1:integer;
begin
clscr;
writeln(‘program penjumlahan’);
write(‘masukkan bilangan pertama: ‘);
readln(bil1);
write(‘masukkan bilangan kedua: ‘);
readln(bil2);
hasil1:=bil1+bil2;
writeln(‘hasil penjumlahannya adalah:=hasil1’);
end;

procedure repeatulang;
var a,b: integer;
begin
repeat
write(i);
i:i+2;
until i>15;
end;
end;

begin
i:=1;
while i<15 do;
begin
writeln(i);
i:=1+1
end;
end;

Mudah-mudahan bermanfaat. Jika ada yangbkurangbjelas silahkan tinggalkan komentar. Terima kasih..