Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
Program Q2;
const pi =3.1416 ;
var radius, area ,circum :real ;
begin
write('Input the radius :');
readln(r) ;
area := r^2 *pi ;
circum := 2*r*pi ;
writeln(' Circumference = ' circum :2:2 ) ;
writeln(' Area = 'area :2:2 ) ;
end.