PASCAL : Menghitung luas lingkaran

PROGRAM luas_lingkaran;

USES CRT;

CONST phi = 3.14;

VAR r : integer;

luas : real;

BEGIN

CLRSCR;

WRITELN(‘Program Menghitung Luas Lingkaran’);

WRITELN(‘Diketahui :’);

WRITE(‘ Jari-jari = ‘);READLN(r);

                   luas:=phi*r*r;

                  WRITELN(‘ Phi = ‘,phi);

                  WRITELN(‘Maka :’);

                       WRITELN(‘ Luas Lingkaran = ‘,luas);

                  WRITE(‘ Luas Lingkaran = ‘,luas:0:0);

READLN;

END.