разветвлющиеся кострукции в Паскале

[djulu]

1. Даны три числа возвести в квадрат те из них значения которых неотрицательны.
2. m=min^2(max(x*y,z),y/z)

[Mad_Cat]

Даны три числа возвести в квадрат те из них значения которых неотрицательны.

readln(a);
if a>=0 then a:=a*a;
writeln(a);

для остальных 2 аналогично