Задание

Данные для составления программы:

радиус 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);

Закончим программу