вычислить математическое выражение в Паскале!

[arxemond]

Вот такое мне нада написать сможет кто нить помоч?!
Определить значение z = max (a, 2b) * max(2a —b,2b); где max ( x , y ) есть максимальное из чисел x , y . При решении задачи: определить и использовать функцию max .

[p51x]

Чем помочь? Наэлеменарнейшая задача.

[arxemond]

я непон6имаю как это сделать можеш зделать?

[Пепел Феникса]

за 50р(на потраченное время) код твой.

a b вводятся с клавы?

[Asker13]

Пепел Феникса, платить он не станет, объяснять ничего не нужно, я уже сотню таких повидал. Просто дай код и скатертью дорога.

program ras;
var
  z,a,b: integer;
function F: integer;
  function Max(x,y: integer): integer;
  begin
    if x > y then Max := x else Max := y;
  end;

begin
  F := Max(a, 2*b) * Max(2*a-b, 2*b);
end;

begin
  ReadLn(a, b);
  z := F;
  WriteLn(z);
  ReadLn;
end.

[Пепел Феникса]

Asker13, в тоже время, не стоит поощрять халявщиков.

[ACE Valery]

bo9911, я вам сейчас так помогу, что из банов и не выпутаетесь.
у нас сегодня прям массовое обнагление халявщиков.