Вычислить длину окружности и площадь круга по заданному радиусу (программа Паскаль)

Program z1;
Var r, c, s: real;
Begin
Writeln (‘Введи радиус’);
Readln (r);
c:= 2*3,14*r;
s:=3,14*sqr(r);
Writeln (‘c=’,c);
Writeln (‘s=’,s);
Readln;
End.