Составьте программу нахождения s круга (на языке паскаля)

Program n_6896896;const p=3.14;var s, r: real;beginwrite('Введите r');readln(r);s:= p * sqr(r);writeln('s=', s)end.