Ответ:

Вот так, вроде

const

PI=3.14;

Var

R, L, S:Real;

begin

R:=2.50;

L:=2*pi*r;

S:=pi*r*r;

Writeln('L=', L:6:3);

WriteLn('S=', S:6:3);

End.

Можешь проверить на компиляторе