Вычислить для треугольника ABC все стороны, все углы, периметр и площадь - Pascal (7293)

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

1)Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран. 2)Ввести x и вычислить:

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

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

var
a,n,m:integer;
b:boolean;
begin
while true do
begin
writeln('viberite deistvie:');
readln(a);
case a of
1:
begin
writeln('vvedite chislo');
readln(n);
end;
2:if n>=0 then writeln('>=0') else writeln('<');
3:if (n mod 4) = 0 then writeln('kratno 4') else writeln('ne kratno 4');
4:if n<-3 then writeln('<') else writeln('>=-3');
5:begin
m:=n;
b:=true;
while m>=5 do
begin
if m mod 5 <> 0 then begin b:=false; break;end
else
begin
m:= m div 5;
end;
end;
if m<>-3 then b:=false;
if b then writeln('stepen 5') else writeln('ne stepen 5');
end;
6:break;
end;
end;
end.

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

Этот код написан на языке Pascal и выполняет следующие действия:

Получает от пользователя число a и сохраняет его в переменной a.
Проверяет, является ли число a положительным. Если да, то выводит сообщение >=0. Если нет, то выводит сообщение <.
Проверяет, делится ли число a на 4 без остатка. Если да, то выводит сообщение kratno 4. Если нет, то выводит сообщение ne kratno 4.
Проверяет, является ли число a отрицательным или равным -3. Если число a отрицательное, то выводит сообщение <. Если число a равно -3, то выводит сообщение >=-3.
Вычисляет частное числа a на 5 и сохраняет результат в переменной m. Затем проверяет, делится ли число m на 5 без остатка. Если да, то устанавливает переменную b в значение false и прерывает цикл. Если нет, то сохраняет число m в переменной m и повторяет цикл.
Проверяет, равно ли значение переменной m -3. Если да, то устанавливает переменную b в значение false. Если нет, то выводит сообщение stepen 5.
Конец цикла. Этот код выполняет вычисления для треугольника ABC, используя введенные пользователем значения. Он выводит сообщения о сторонах, углах, периметре и площади треугольника.