Напишите программу в Pascal Вводится радиус, найти: диаметр, площадь круга данного радиуса, длину окружности данного радиуса​

Смотреть объяснение.

Объяснение:

Program rdsc;

Var r, d, s, c:real;

Begin

 Write('Введите радиус окружности (pi=3.14): ');

 Read(r);

 d:=2 * r;

 Writeln ('Диаметр окружности равен: ',d);

 s:=3.14 * r * r;

 Writeln ('Площадь окружности равна: ', s);

 c:=2 * 3.14 * r;

 Writeln ('Длина окружности равна: ', c);

 Readln;

End.