Program HINHTRON;

Uses Crt;
Var r,dt,cv:real;
Begin
    Clrscr;
    Writeln('TINH DIEN TICH & CHU VI HINH TRON:');
    Writeln('——————————————————');
    Write ('Nhap ban kinh R=');readln(r);<br />    dt:=pi*r*r;<br />    cv:=2*pi*r;<br />    Writeln('Dien tich hinh tron la:',dt:6:2);
    Writeln('Chu vi hinh tron la:',cv:6:2);
    Readln;
end.