Vlad3

Var
    A, B, Z: Real;          {Тип Real - для нецелых значений}
    Max, Min: Real;
Begin
    Write('Input A: ');
    ReadLn(A);
    Write('Input B: ');
    ReadLn(B);
    If A + B >= 0 Then Begin
      Max:= A;
      If Max < B Then Max:= B;
      Z:= 0.3 * Max + B * Cos(A * A + 1);
    End
    Else Begin
      Min:= A;
      If Min > 0.5 * B Then Min:= 0.5 * B;
      Z:= Sqrt(Min + B * B);
    End;
    WriteLn('Z = ', Z:8:6);           {Z:8:6 означает - вывести Z в обычной (не инженерной) записи, максимум 8 символов до точки, 6 - после}
End.