Задача.
Определить максимум и минимум из 4-х чисел. Найти разность max-min.
Найдите правильное решение.

• Паскаль
  Program min-max;
  uses crt;
  а, b, c, d, max, min, raz: integer;
  begin
  writeln \('Определить максимум и минимум из 4х чисел\.найти рахность max\-min'\);
  writeln;
  write \('введите 4 числа'\);
  read\( а, b, c, d\);
  max: =а; min:=a;
  if b>max then max:=b; if b<min then min:=b;
  if c>max then max:=c; if c<min then min:=c;
  if e>max then max:=e; if e<min then min:=e;
  if d>max then max:=d; if d<min then min:=d;
  raz:= max - min;
  writeln\('min=', min\);
  writeln\('max=', max\);
  end.
• Паскаль
  Program min-max;
  uses crt;
  а, b, c, d, max, min, raz: integer;
  begin
  writeln \('Определить максимум и минимум из 4х чисел\.найти рахность max\-min'\);
  writeln;
  write \('введите 4 числа'\);
  read\( а, b, c, d\);
  max: =а; min:=b;
  if b>max then max:=b; if b<min then min:=a;
  if c>max then max:=c; if c<min then min:=a;
  if e>max then max:=e; if e<min then min:=a;
  if d>max then max:=d; if d<min then min:=a;
  raz:= max - min;
  writeln\('min=', min\);
  writeln\('max=', max\);
  end.