Даны действительные числа x,y,z. Получить max(x2,y2,z2). помогите создать программу на паскале

Question

Ольга Арыспаева · Accepted Answer

function max(a,b: float):float 
begin 
if(a>b) then max:=a else max:=b; 
end; 
begin 
writln('result=',max(max(a,b),max(a,c))); 
end.

Алексей Сошин · Answer

function GetMax(a,b,c: float):float; 
begin 
if a>b then if a>c then result := a 
else ...
end; 
 
begin 
writln('result = '', GetMax(a,b,c)); 
readln; 
end;

Елена · Answer

if (x>y) and (x>z) then max:=x; 
аналогично остальное