Помогите пожалуйста с паскалем, не как не могу решить (

var r, c, s: real;

begin

r:=5.4;

c:=2*pi*r;

s:=pi**r;

writeln('c=', c:6:4);

writeln('s=', s:6:4);

end.