program dairenin alanı; var yarıcap,pi,alan:integer; begin wrie('1.sayıyı gir='); readln(yarıcap); pi:=3; alan:=pi*(yarıcap*yarıcap); writeln('Alan=',alan); readln;end