Напишите программу, которая находит площадь и периметр окружности по известному радиусу.

program z212;  

uses crt;  

writeln('Вычисление длины окружности и ее площади');  

writeln('Введите радиус окружности');  

readln(r);  

s:=2*pi*r*r;  

writeln('Длина окружности: ',c:3:5);  

writeln('Площадь окружности: ',s:3:5);