Помогите составить программу на языке паскаль абц:

Вычислите площадь круга и длину окружности по исходным данным.

Const

Pi = 3.141592;

var

R, S, L : Real;

begin

Write ('Введите радиус круга: ');

ReadLn (R);

S : = Pi*sqr (R);

L : = 2*Pi*R;

Writeln ('S круга: ', S:0:3);

Writeln ('Длина окружности: ', L:0:3);

Readln;

end.