Program Pascal Mencari Luas Lingkaran

Nahhh ini adalah salah satu program pascal untuk Mencari Luas Lingkaran

1. Programnya

program LuasLingkaran;
uses crt;
Var
r :Integer;
luas :Real;
Begin
clrscr;
Writeln('program mencari luas lingkaran');
Write('Input nilai r =');readln (r);
Luas :=3.14*r*r;
Writeln('Nilai luas =',luas:2:2);
readln;
end.