Cpascal #7

{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание:
Из железной полосы длиной L метров нужно изготовить обруч.
На соединение концов уходит D метров полосы.
Написать программу для вычисления радиуса R обруча.
Протестировать программу для: а) L=5.8, D=0.2, б) L=3.25, D=0.1

Выполнил: ст.гр. МЛ-212, Фомин Александр
г.Новосибирск, 2014г.
}
Program CyberPascal; uses crt;

var l,d,r:real;

Begin clrscr;
Write('--------------------------------------------------------------------------------');
Write(' Введите длинну заготовки, м: '); Readln(L);
Write(' На соединение требуется, м:  '); Readln(D);
Write('--------------------------------------------------------------------------------');
R:=((L-D)/Pi)/2;
Writeln(' Радиус обруча, м: ',R:5:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.