Напишите на паскале программу, вычисляющую длину окружности, площадь круга одного и того же радиуса по формулам: c = 2пр, s=пр²

Program x6;
var c, s, r: real;
begin
readln(r);
c=2*pi*r;
s=pi*r*r;
writeln(c);
writeln(s);
end.