Luas Lingkaran

Program luas_lingkaran;
Uses Crt;
Var
Jari,luas:real;  
Const pi=3.14;
Begin
Clrscr;
Gotoxy (20,2);writeln (‘*** Nur Rohma Fadila ***’);
Write(‘masukkan jari ?’);readln(jari);
Luas:=pi*(jari*jari);
Writeln(‘luas lingkaran adalah’,luas,’cm’);
Readln;
End.