Klavyeden yarı çapı girilen dairenin çevresini ve alanını bulan program

uses crt;
   var
   cevre,alan,pisayisi,r:integer;
   begin
   write(‘yarıçapı giriniz:’);readln(r);
   pisayisi:=3;
   cevre:=2*pisayisi*r;
   alan:=pisayisi*r*r;
   writeln(‘cevre:’,cevre);
   writeln(‘alan:’,alan);
   readln; end.


Linkback: https://www.buyuknet.com/klavyeden-yari-capi-girilen-dairenin-cevresini-ve-alanini-bulan-program-t8210.0.html