Program Sederhana Mencari Luas dan Keliling Persegi dengan Turbo Pacal

program Menghitung_luas_dan_keliling_persegi;
uses wincrt ;
var
s,L,K:real ;
begin
clrscr;
writeln (‘Selamat Datang di Program Sederhana Mencari Luas dan Keliling Persegi’);
writeln;
write (‘Masukkan nilai sisi persegi = ‘); readln (s);

L:=s*s;

writeln (‘Luas persegi tersebut adalah = ‘, L:3:2);

K:=4*s;

write (‘Adapun kelilingnya adalah = ‘, K:3:2);

end.