Program Lab5_6; uses crt;

var a,b:integer;
    x:real;

Begin clrscr;
Write(' Введите число A: '); Readln(A);
Write(' Введите число B: '); Readln(B);

if (A > B) then X:=A*B+1
           else if (A = B) then X:=25
                   else if ((A < 0) and (B <> 0)) then X:=(A-5)/B
                                              else Writeln(' ОШИБКА: Делить на ноль нельзя!');

Writeln(' Ответ: ',X:8:5);
Readln;
end.