Данные для составления программы:
радиус r=5,4 см
r, c, s - вещественный тип
c=2𝝅𝒓
s=𝝅𝒓^𝟐

| | Точка с запятой служит разделителем для операторов |
| --- | ``` |
| Запишем заголовок программы program n2 | |
| Заполним блок констант const pi=3.14
Запишем блок переменных var r,c,s: real | |
| Начнем программный блок: begin | |
| Для того, чтобы пользователь знал, для чего предназначена программа выведем сообщение: writeln \('Вычисление длины окружности и площади круга'\) | |
| Для того, чтобы пользователь знал, какое действие от него ожидает компьютер выводим write \('Введите r'\); | |
| Организуем ввод данных с помощью оператора ввода: readln \(r\); | |
| По известной формуле найдем длину окружности: с:=2*pi*r
Теперь найдем площадь круга: s:=pi*r*r | |
| Обеспечим вывод результата. Сначала длина окружности:
writeln \('c=',c:6:4\); Теперь выводим площадь круга: writeln \('s=',s:6:4\); | |
| Закончим программу | |