Contoh Program Pascal Sangat Sederhana

Langsung aja di lihat, di copy-paste juga silahkan..
--------------------------------------------------

Program repeat;
uses crt;

var
 a: integer;

begin
 clrscr;
 a:=2;
 repeat
 write(a,’ ‘);
 a:=a+2;
 until a>11;
 readln;
end.

--------------------------------------------------

Program menampilkan_inputan;
uses crt;

var
 a: integer;

begin
 clrscr;
 write('Masukkan angka: ')
 readln(a);
 writeln('angka yang anda masukkan adalah :',a);
readln;
end.

--------------------------------------------------

Program penjumlahan;
uses crt;

var
 a:integer;
 b:integer;
 c:integer;

begin
 clrscr;
 write('Masukkan angka: ');
 readln(a);
 write('Masukkan angka penjumlah : ');
 readln(b);
 c:=a+b;
 writeln('Hasilnya = ',c);
 readln;
end.

--------------------------------------------------

Program perkalian;
uses crt;

var
 a:integer;
 b:integer;
 c:integer;

begin
 clrscr;
 write('Masukkan angka: ');
 readln(a);
 write('Masukkan angka pengali : ');
 readln(b);
 c:=a*b;
 writeln('Hasilnya = ',c);
 readln;
end.

--------------------------------------------------

Program pembagian;
uses crt;

var
 a:integer;
 b:integer;
 c:real;

begin
 clrscr;
 write('Masukkan angka: ');
 readln(a);
 write('Masukkan angka pembagi : ');
 readln(b);
 c:=a/b;
 writeln('Hasilnya = ',c);
 readln;
end.

--------------------------------------------------

Program pengurangan;
uses crt;

var
 a:integer;
 b:integer;
 c:integer;

begin
 clrscr;
 write('Masukkan angka: ');
 readln(a);
 write('Masukkan angka penjumlah : ');
 readln(b);
 c:=a-b;
 writeln('Hasilnya = ',c);
 readln;
end.

--------------------------------------------------