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

Радиус круга будем запрашивать у пользователя с помощью команды read (radius);. А для того, чтобы он понял, что у него спрашивают, добавим описание writeln ('Введите значение для переменной, хранящей радиус круга:');

После того, как пользователь вводит цифру, программа добавляет это значение переменной radius.

Далее выводим сообщение о значении длины окружности:

writeln ('Значение длины окружности равно ', pi * radius);

Далее выводим значение площади круга:

writeln ('Площадь круга равна ', pi * sqr (radius));

Завершаем программу оператором end.