var radius, area, circumference: real;
writeln ('Enter a value for the radius of a circle');
circumference:= 2 * pi * radius;
area:=pi * radius * radius;
writeln ('Area of circle is: ', area: 8:2);
writeln ('Circumference of circle is: ', circumference:8:2);
Constants retain their value for the duration of a program. Constants are defined before variables.
Back to questions