Напишите программу вычисления длины окружности и площади круга одного и того же з

Const pi=3.14;const r=2;var s,i:real;begini:=2*pi*r;writeln('длинна окружности равна: ',i);s:=pi*sqr(r);Writeln('площадь круга равна:',s);end. значение радиуса изменяется путем изменения контстанты r.