zadacha1

program Zadacha1;

{$APPTYPE CONSOLE}
var
x,y:real;

Function Min(x,y:real): real;
begin
     If x>y then Min:=y else Min:=x;
end;
Function Max(x,y:real):real;
begin
     If x<y then Max:=y else Max:=x;
end;
Function z(x,y:real):real;
begin
     if x> 0 then z:=Min(x,y)
     else
         if x<0 then z:=Max(x,y)
         else z:=sqr(y)+1;
end;
begin
  {Основная программа}
  writeln('Input x & y');
  readln(x,y);
  Writeln('Z(',x:1:5,',',y:1:5,')=',z(x,y):1:5);
  Readln;
end.
{
N теста    Входные данные Ожидаемый результат             Действительный результат        Тест пройден?
1          -1,2           Z(-1.00000,2.00000)=2.00000      Z(-1.00000,2.00000)=2.00000     Да
2           2,4           Z(2.00000,4.00000)=2.00000       Z(2.00000,4.00000)=2.00000      Да
3           0,2           Z(0.00000,2.00000)=5.00000       Z(0.00000,2.00000)=5.00000      Да


}