Question

Помогите пожалуйста СРОЧНО ((((
Даны 2 числа. Если первое больше второго, вывести их сумму. Если числа равны, вывести соответствующие пояснения. Если не выполняется ни одно из условий, вывести произведение чисел.

Answer 1

program ghvv;

var

 a, b: integer;

 bool: boolean;

begin

 readln(a);

 readln(b);

 begin

   if a > b then

     writeln(a + b) ;

 end;

 begin

   if a = b then

     Writeln('числа равны') ;

 end;

 begin

   if a < b then

     writeln(a * b) ;

 end;

end.