Программирование на паскаль

[Arsen05]

Вроде функция правильна, а начало и конец не могу дописать. Кто может помогите с началом и концом

Определить значение z=max(a,2b)*max(2a-b,b), где max(x,y) есть максимальное из чисел x,y.

private sub cmd1_click()
a=val(inputbox("A="))
b=val(inputbox("B="))
z=max(a,2*b)*max(2*a-b,b)
msgbox "Z=" & z
end sub

function max(x as integer,y as interger)
if x>=y then
max=x
else
max=y
end if
end function

[VadikV]

Ты уж определись на чем писать....
Тема по паскалю, а пример на VBasic....

[Летучий_СкилетиК]

Ты уж определись на чем писать....
Тема по паскалю, а пример на VBasic....

Согласен. Зачем подписали тему

Программирование на Паскале

.
Сегодня у меня хорошее настроение
держите код:

var
   a,b,z,xx,yy:integer;
function max(x:integer;y:integer;var m:integer):integer;
begin
     if x>y then m:=x else m:=y;
end;
begin
read(a,b);
max(a,2*b,xx);
max(2*a-b,b,yy);
write(xx*yy);
end.