Mencari Luas Arsiran Dengan OOP Raptor Bagian 1 (Praktikum)

Alo. di hari sabtu ini saya ingin share Program Mencari Luas Arsiran dari lingkaran yang terdapat di dalam persegi. sebelunya saya juga sudah membagikannya dalam bentuk C++, berikut link nya :
Algoritma Menentukan Luas Arsiran Bagian 1 (Praktikum)

Nah untuk yang satu ini dalam bentuk OOP Raptornya, Silahkan disimak :

Algoritma Luas_Arsiran(Lingkaran didalam persegi)

Deklarasi :

psg          : int
lk, ars, r   : float

Deskripsi :

read (r)

psg <- (r*2)*(r*2)
lk <- 3.14*r*r
ars <- psg-lk

write(ars)