Find the circumference of a circle L and the area of a circle S of a given radius R: L = 2 π R, S = π R 2 (Pascal)

program zz1;
var r, L, S: real; // set variables of non-integer type
begin
write (‘enter the initial value for the radius of the circle’); // enter the original value r from the keyboard
read (r);
L: = 2 * pi * r; // calculate the circumference
writeln (‘the obtained value of the circumference =’, L: 5: 2); // display the answer in the format of five digits for the whole number and two decimal places
S: = pi * r * r; // calculate the area of the circle
writeln (‘the obtained value of the area of the circle =’, S: 5: 2); // display the answer
end.