Program Luas Lingkaran

ALGORITMA
1. Beri nama Program
2. Tentukan variabel yang akan digunakan
3. Ketik Begin
4. Tulis masukkan yang akan ditulis atau ditampilkan oleh program
5. Ketik rumus luas lingkaran
6. Akhiri dengan mengetikkan perintah end

Program Luas Lingkaran
Program Luas_lingkaran;
Uses Wincrt;
Var r, LS : Real;
Begin
Clrscr;
Write('Masukkan Jari-jari Lingkaran (r) =  ');Readln(r);
LS:=Pi*r*r ;
Writeln('Luas Lingkaran =;L:18:2,'cm2');
Readln;
end.