Программа с оператором CASE, выводит некорректные значения - Turbo Pascal

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

С клавиатуры вводится число a и число b ∈ {1, 2, 3, 4} (конкретно в этом порядке). Рассматривается равнобедренный прямоугольный треугольник. Если b = 1, то a – катет, если b = 2, то гипотенуза, если b = 3, то площадь, если b = 4, то радиус вписанной в него окружности. Выведите на экран длины сторон этого треугольника, его площадь и радиус вписанной окружности. Собственно, программа запускается, но некорректно выводит значения. Помогите, пожалуйста, где ошибки в коде?

program pr1;
var a,b,c,s,r,k: longint;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
repeat
readln(b);
k:=a;
c:=sqr(k*k + k*k);
s:=(k*k)div 2;
r:=(k div 2)*(sqr((2*k-k)div(2*k+k)));
case b of
1:writeln('Катеты треугольника равны ',k);
2:writeln('Гипотенуза треугольника равна ',c);
3:writeln('Площадь треугольника равна ',s);
4:writeln('Радиус вписанной окружности равен ',r);
end;
until b=4;
readln;
end.

Решение задачи: «Программа с оператором CASE, выводит некорректные значения»

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

program pr1;
var a,b,k : longint;
    c,s,r : real;
begin
write('a');
readln(a);
write('b');
repeat
readln(b);
k:=a;
c:=sqrt(k*k + k*k);
s:=(k*k)div 2;
r:=(k div 2)*(sqrt((2*k-k)div(2*k+k)));
case b of
1:writeln('k=',k);
2:writeln('c=',c);
3:writeln('s= ',s);
4:writeln('r=',r);
end;
until b=4;
readln;
end..

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

В данном коде происходит следующее:

Создается программа pr1, которая использует язык программирования Turbo Pascal.
Объявляются переменные a, b, k типа longint (длинное целое число) и переменные c, s, r типа real (число с плавающей точкой).
Выводится значение переменной a.
Выводится значение переменной b.
Переменная k присваивается значение переменной a.
Вычисляется значение переменной c как квадратный корень суммы квадратов переменных a и b.
Вычисляется значение переменной s как половина суммы квадратов переменных a и b.
Вычисляется значение переменной r как половина произведения суммы квадратов переменных a и b на квадратный корень из разности суммы квадратов переменных a и b и суммы квадратов переменных a и b.
Запускается цикл repeat, который продолжается до тех пор, пока значение переменной b не станет равным 4.
Внутри цикла переменная k присваивается значение переменной a.
Вычисляется значение переменной c как квадратный корень из суммы квадратов переменных a и b.
Вычисляется значение переменной s как половина суммы квадратов переменных a и b.
Вычисляется значение переменной r как половина произведения суммы квадратов переменных a и b на квадратный корень из разности суммы квадратов переменных a и b и суммы квадратов переменных a и b.
Выводится сообщение в зависимости от значения переменной b.
Цикл repeat завершается.
Выводится сообщение об окончании ввода. Таким образом, данный код представляет собой программу, которая вычисляет различные значения на основе введенных пользователем значений переменных a и b, а затем выводит эти значения на экран.