Contoh Program Pascal : Menghitung Luas dan keliling Persegi

Berikut ini adalah contoh program sederhana untuk menghitung luas dan keliling sebuah persegi dengan inputan sisi persegi.

program persegi;

uses
crt;

var
sisi : integer;
keliling, luas : real;

begin
clrscr;
write('Masukkan sisi persegi: ');
readln(sisi);
keliling := 4 * sisi;
luas := sisi * sisi;
writeln;
writeln('keliling persegi = ', keliling:0:2);
writeln('luas persegi = ', luas:0:2);
readln;
end.

Tags: Pascal, Luas keliling persegi, program pascal