Здравствуйте мне в написании кода на языке Ассемблер (функция которую надо решить на картинке) Нужно оформить с использованием внутренних процедур(подсчеты нужно сделать в отдельных процедурах), тип данных - любой
Например:

Dseg segment para public 'data'
x db 1
y db 2
f db ?
mes db 'конец программы$'
Dseg ends

Sseg segment para stack 'stack'
dw 30 dup(0)
Sseg ends

Cseg segment para public 'code'
osn proc near
assume cs:cseg,ds:dseg,ss:sseg
mov ax,dseg
mov ds,ax
mov al,x
imul y
cmp al,10

jg m1
cmp al,0
jl m2

call p3
jmp m3

m1: call p1
jmp m3

m2: call p2

m3: mov f,al
lea dx,mes
mov ah,9
int 21h
mov ax, 4c00h
int 21h
osn endp

p1 proc near
mov al,y
imul y
mov bl,3
imul bl
add al,4
ret
p1 endp

p2 proc near
mov al,x
imul x
add al,3
mov cl,al
mov al,x
imul x
mov bl,al
mov al,y
imul y
add al,bl
sub al,5
cbw
idiv cl
ret
p2 endp

p3 proc near
mov bl,y
add bl,5
mov al,x
imul x
add al,bl
mov bl,al
mov al,y
mov bl,3
imul bl
sub al,x
cbw
idiv bl
ret
p3 endp
Cseg ends
end osn

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный

print("Привет! Я недавно появился в интернете! Я могу рассказать тебе про музыку/игры/кино/книги")

fest = input("Ты хочешь посмотреть мои функции? ")

if fest.lower() == 'да':

   print("Круто!")

   print("Введи 1, если хочешь узнать об играх")

   print("Введи 2, если хочешь узнать о книгах")

   print("Введи 3, если хочешь узнать о музыке")

   print("Введи 4, если хочешь узнать о кино")

   x = int(input("Ввод: "))

   if x == 1:

       print("Круто! В играх можно классно провести время с друзьями!")

   elif x == 2:

       print("Книги - наше всё, без книг мы будем никем!")

   elif x == 3:

       print("Музыка, в наше время музыка очень популярна, послушай хотя бы альбом Деда Мороза!")

   elif x == 4:

       print("Ух, люблю кино. Боевики, милодраммы, не хочешь сходить как-нибудь? ;)")

   print("Отлично, как бы ты оценил меня? Оцени по трём критериям: интерес, веселье, польза")

   for i in range(3):

       x = int(input("Введи оценку (от 1 до 10) "))

   v = int(input(" за оценку, напоследок вычисли мне значение выражения:" (2 * 2)+2))

   while v != 6:

       print("Неверно, попробуй еще")

       v = int(input())

   print(" тебе, пока!")

   

else:

   print("Жаль, ну тогда пока :(")