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

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