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

program z212;

uses crt;

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

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

readln (r);

s:=2*pi*r*r;

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

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