Вычислить площадь круга - Turbo Pascal

Формулировка задачи:

Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент), и длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга.

Решение задачи: «Вычислить площадь круга»

Листинг программы

uses crt;
var w:char;
    r,d,l,s:real;
begin
clrscr;
repeat
clrscr;
writeln('Выберите эемент круга');
writeln('1-радиус');
writeln('2-диаметр');
writeln('3-длина окружности');
writeln('другое-выход');
readln(w);
case w of
'1':begin
    write('радиус=');
    readln(r);
    s:=r*r*pi;
    writeln('площадь=',s:0:2);
    writeln('нажмите Enter');
    readln;
    end;
'2':begin
    write('диаметр=');
    readln(d);
    s:=sqr(d/2)*pi;
    writeln('площадь=',s:0:2);
    writeln('нажмите Enter');
    readln;
    end;
'3':begin
    write('длина окружности=');
    readln(l);
    s:=sqr(l/2/pi)*pi;
    writeln('площадь=',s:0:2);
    writeln('нажмите Enter');
    readln;
    end;
else exit;
end;
until not(w in ['1'..'3']);
readln
end.

Объяснение кода листинга программы

Код начинается с использования библиотеки crt, которая позволяет использовать экранный ввод-вывод. Затем объявляются переменные w, r, d, l, s типа char, real. Далее идет цикл repeat, который повторяется до тех пор, пока введенная пользователем строка (w) не будет соответствовать одному из трех вариантов: '1', '2' или '3'. Внутри цикла пользователь предлагается ввести значение радиуса (для '1'), диаметра (для '2') или длины окружности (для '3'). После ввода значения и нажатия клавиши Enter, значение переменной r, d или l присваивается соответствующее значение радиуса, диаметра или длины окружности. Затем вычисляется площадь круга по формуле s = r^2 * pi, где r - радиус круга, и выводится на экран. После этого программа продолжает повторяться до тех пор, пока пользователь не введет некорректное значение или не выйдет из программы. В конце программы выводится приглашение для ввода, и программа завершается после нажатия клавиши Enter.