Дан радиус круга. вычислить площадь и длину окружности этого круга в

Радиус круга будем запрашивать у юзера с поддержкою команды read(radius);. А для того, чтоб он понял, что у него спрашивают, добавим описание writeln(Введите значение для переменной, берегущей радиус круга:);
После того, как юзер вводит цифру, программка добавляет это значение переменной radius.
Дальше выводим сообщение о значении длины окружности:
writeln(Значение длины окружности одинаково , pi * radius);
Далее выводим значение площади круга:
writeln(Площадь круга одинакова , pi * sqr(radius));
Заканчиваем программку оператором end.