Question

Задание 1. В компьютер вводятся два числа.Если первое больше второго,то напечатать их сумму, иначе - произведение.После этого компьютер должен напечатать текст ЗАДАЧА РЕШЕНА. Задание 2. Выяснить количество корней квадратного уравнения с коэффициентами a,b,c

Answer 1

Program Title;

Var i, A, B :Integer;

Begin

WriteLn('Введите первое число');

ReadLn(A);

WriteLn('Введите второе число');

ReadLn(B);

If a>b then writeln(a+b) else writeln(a*b)

Writeln('Задача решена')

End.