1  REM P2_6
10 INPUT "Poluprecnik ";r
20 pi =3.141593
30 p = pi * r ^ 2 
40 PRINT " poluprecnik "; r
50 PRINT "povrsina kruga "; p
60 END