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

VARa,b,c:integer;BEGINWriteLn('Введите Радиус окружности:');Read(a);Write('Длина окружности: ');WriteLn(2*Pi*a);Write('Площадь круга: ');WriteLn(Pi*Sqr(a));END.