Program Menghitung Luas Persegi dengan Bahasa Pascal

Studi Kasus :

Menghitung Luas Persegi

Jawaban :
procedure luas (sisi:integer);

var

Luas:integer;

begin

Luas:= sisi*sisi;

writeln('Luaspersegi = ',luas)

end;

var

a:integer;

begin

write('masukannilaisisi= ');readln(a);

luas(a);

end.

Posted in: BAHASA PASCAL