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

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

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.