Program Menghitung Luas Lingkaran dengan Bahasa Pascal

procedure luas (r:integer);

var

Luas:integer;

begin

Luas:= 3.14*r*r;

writeln('Luaslingkaran = ',luas)

end;

var

jari:integer;

begin

write('masukanjari-jarilingkaran = ');readln(jari);

luas(jari);

end.

Posted in: BAHASA PASCAL