program pascal meng hitung lingkaran

PROGRAM LINGKARAN;
uses crt;
var
r:real;
procedure
ls;
var
ls:real;
begin
ls:=22/7*r*r;
writeln('luas:',ls:2:4);
end;
procedure
kil;
var
kil:real;
begin
kil:=2*22/7*r;
WRITE('keliling:',kil:2:4);
end;
begin
clrscr;

writeln('menghitung lingkaran');
write('masukan jari jari:');readln(r);
writeln;
ls;
kil;
readln;
end.