Лёгкие задачки по Delphi (но для меня сложные)

[CHeGIVaRO]

Помогите пожалуйста решить следующее
1.Даны четыре числа. Вычислить сумму положительных среди них чисел.
2.Даны четыре числа. Вычислить произведение отрицательных среди них чисел.
3.Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением.
4.Даны четыре числа. Найти разность между наибольшим и наименьшим среди них

И желательно чуть чуть объяснить, что бы я понял что куда

[CHeGIVaRO]

Первые два сделал, додумался, а вот вторые два пока ещё не понял как сделать

[Stilet]

Даны два числа. Большее из этих двух чисел заменить их полусуммой, а меньшее удвоенным произведением.

var a,b,c:integer;
begin
 a:=0;b:=0;
// Если а больше б
 if a>b then begin
// то запоминаем а в особую переменку и производим вычисления
  c:=a; a:=(a+b)/2; b:=2*b*c;
 end else begin
// Иначе наоборот б в переменку
  c:=a; b:=(a+b)/2; a:=2*a*c;
 end;
end;

[CHeGIVaRO]

Сообщение от Stilet

var a,b,c:integer;
begin
 a:=0;b:=0;
// Если а больше б
 if a>b then begin
// то запоминаем а в особую переменку и производим вычисления
  c:=a; a:=(a+b)/2; b:=2*b*c;
 end else begin
// Иначе наоборот б в переменку
  c:=a; b:=(a+b)/2; a:=2*a*c;
 end;
end;

Большое спасибо я всё понял

[Poma][a]

Нужен или div или Real..

[Stilet]

Правильно. Будем реалистами:

var a,b,c:double;

[Poma][a]

Правильно. Будем реалистами:

var a,b,c:double;

Какой же ты реалист?

var a,b,c:real;

Вот так уже лучше

[CHeGIVaRO]

Почему он у меня не распознаёт функцию Max и Min? Может я не правильно её использую или вообще она в delphi есть?

var
  Form1: TForm1;
  n1, n2, n3, n4, r1, r2, r3:integer;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

n1:= StrToInt (Edit1.Text);
n2:= StrToInt (Edit2.Text);
n3:= StrToInt (Edit3.Text);
n4:= StrToInt (Edit4.Text);

r1:= Min(n1,n2,n3,n4);
r2:= Max(n1,n2,n3,n4);

r3:= r2-r1;

Panel1.Caption:= IntToStr(r3);

[Poma][a]

Может я не правильно её использую или вообще она в delphi есть?

Угу.. Неправильно.. И угу, есть..
Max (a, b)... возвращает максимальное значение из a и b.. (a, b - целые)..

[CHeGIVaRO]

Сообщение от Poma][a

Угу.. Неправильно.. И угу, есть..
Max (a, b)... возвращает максимальное значение из a и b.. (a, b - целые)..

Я понял, но что мне с этим сделать?