помогите пожалуста,экзамен в пятницу!!!!

[мелкая007]

Задание1.
Вычеслить результат,используя условный оператор.Исходные данные ввести с клавиатуры.b=(max(m-nk,k-mn))/(max(m+k,2n))

Задание2.
Провести анализ вводимого с клавиатуры целого числа по двум признакам-его разрядности и знака.

Задание3.
Сформировать три множества х1,х2,х3 ,содержащие целые числа из диапозона 1…100.Мощность каждого множества равна 5.Значения элементов исчодных множеств ввести с клавиатуры.
Сформировать новое множество у=(х1∪х2)∩(х2∪х3),из которого выделить подмножество четных чисел.Определить мощность полученного множества и вывести на экран.

Задание4.
Составить программу построения чертежа плоской фигури по заданным значениям определяющих ее параметров.Трапеция с основанием а и b,боковой стороной с и высотой h.

[kiloz]

Задание 1.

program zd1;
uses crt;
function max(a,b: real): real;
begin
  if (a>=b) then
    max := a
  else
    max := b;
end;
function func(n,k,nk,mn,2n: real): real;
begin
  func := (max(m-nk,k-mn))/(max(m+k,2n));
end;
var b,m,k,nk,mn,2n: real;
begin
  wrute('n='); readln(n);
  wrute('k='); readln(k);
  wrute('nk='); readln(nk);
  wrute('mn='); readln(mn);
  wrute('2n='); readln(2n);
  b := func(n,k,nk,mn,2n);
end;

или так (если: nk=n*k, mn=m*n, 2n=2*n):

program zd1;
uses crt;
function max(a,b: real): real;
begin
  if (a>=b) then
    max := a
  else
    max := b;
end;
function func(n,k,m,: real): real;
begin
  func := (max(m-n*k,k-m*n))/(max(m+k,2*n));
end;
var b,m,k: real;
begin
  wrute('n='); readln(n);
  wrute('k='); readln(k);
  wrute('m='); readln(m);
  b := func(n,k,m);
end;

[kiloz]

Задание2.

program zd2;
uses crt;
var n: integer; r: real; i: byte;
begin
  write('Введите N: '); readln(n); writeln; writeln;
  if (n>=0) then writeln('Число положительное (не отрицательное)')
  else writeln('Число отрицательное');
  i := 1; 
  r := abs(n) / 10;
  while (r>9) do begin
     i := i + 1;
     r := r / 10;
  end;
  write('Число содержит ',i,' разрядов');
end;

или так (с целочисленным делением):

program zd2;
uses crt;
var n: integer; i: byte;
begin
  write('Введите N: '); readln(n); writeln; writeln;
  if (n>=0) then writeln('Число положительное (не отрицательное)')
  else writeln('Число отрицательное');
  i := 1; 
  n := abs(n) div 10;
  while (n>9) do begin
     i := i + 1;
     n := n div 10;
  end;
  write('Число содержит ',i,' разрядов');
end;

все пишу в блокноте, так что проверьте