Pascal : program mencari luas persegi,persegi panjang dan segitiga

  Ini dia program paling sederhana yang pernah saya post disini (yah, inilah akibat kehabisan bahan posting), cara kerjanya sangat simple, masukkan alas dan tingginya, dan rumusnya bekerja dalam program ok ini dia list scriptnya :

Persegi :

var a,b:integer;
begin
read(a);
b:=a*a;
writeln(b);
end.

Persegi panjang :


var a,b,c:integer;
begin
read(a,b);
c:=a*b;
writeln(c);
end.

Segitiga :

var a,b,c:integer;
begin
read(a,b);
c:=a*b div 2;
writeln(c);
end.

Ok, sekian.