Выполнить перевод чисел из десятичной системы счисления в двоичную, сложение в дво-ичной системе, выполняя проверку 225+138

Var hn,hv: integer; begin     writeln('введите верхнее и нижнее давление');     readln(hv,hn);         if (hv< =100)and(hn> =60)and(hv-hn> =30)then             writeln('норма');         if (hv> 100)then             writeln('повышенно');         if hn< 60 then             writeln('низкое');         if hv-hn< 30 then             writeln('не норма'); end.

Program zadacha; var a: array[1..5] of integer; max,min,i,nmax,nmin: integer; begin for i: =1 to 5 do begin write ('ââåäèòå a[',i,']='); readln (a[i]); end; max: =a[1]; min: =a[1]; nmax: =1; nmin: =1; for i: =1 to 5 do begin if a[i]> max then begin max: =a[i]; nmax: =i; end; if a[i]< min then begin min: =a[i]; nmin: =i; end; end; for i: =1 to 5 do begin write (a[i],' '); end; writeln; writeln ('максимальный  элемент  равен ',max,', его  номер ',nmax); writeln ('минимальный  элемент  равен ',min,', его  номер ', nmin); end.