Нужно найти : (x-60)div(z+y^2) с ассемблера. Найдите ошибки в моем коде или напишите свой d_s segment
x db 70
y db 2
z db 6
d_s ends
c_s segment
assume ds:d_s,cs:c_s
begin:
mov ax, d_s
mov ds, ax
mov al, y
mov ah, y
mov bl, x
mov bh, z
mov cl, 60
mul ah
sub bl, cl
add bh, ah
mov ch, cl
mov dl, bh
div dl
mov ah, 4ch
int 21h
c_s ends
end begin

1)
program discuc;
uses crt;
var x,y,z,c,d,r,q,w:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
writeln ('введите z');
readln (z);
writeln ('введите c');
readln (c);
q:=sin(sqr(x));
d:=cos(x)/cos(exp(ln(x)*3));
w:=z/y*c;
r:=q+d+w;
writeln ('r=',r:5:2);
readkey;
end.
2)
program bibup;
uses crt;
var x,y,z,c,v,j:real;
begin
writeln ('введите x');
readln (x);
writeln ('введите y');
readln (y);
z:=(1/(sqr(x)))+1;
c:=sqrt(5);
v:=6.7*(sqr(y));
j:=z-c+v;
writeln ('j=',j:5:2);
readkey;
end.
Это если в Pascal Free
надеюсь это то

Var
  n, m, p, k, sum, x: integer;
  s: string;
  c, i: byte;

begin
  write('Число: ');
  read(n);
  m := n;
  k := 0;
  while m <> 0 do
  begin
    p := m mod 10;
    K := K + 1;
    m := m div 10;
  end;
 
  Str(N, s);
  c := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0', '2', '4', '6', '8'] then
      Inc(c);
 
  x := n;
  sum := 0;
  while (x <> 0 ) do
  begin
    sum := sum + (x mod 10);
    x := x div 10;
  end;
 
  writeln('Количество чисел: ', k);
  writeln('Количество четных чисел: ', c);
  writeln('Cумма чисел : ', sum);
end.