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

Program Begin39;VarA,B,C,X1,X2:Real;BeginWriteLn('Введите A,B и C');ReadLn(A,B,C);D:=Sqr(B) - 4*A*C;X1:=(-B - sqrt(D))/(2*A);X2:=(-B + Sqrt(D))/(2*A);If X1 <= X2 ThenWriteLn('X1 = ',X1,' X2 = ',X2)ElseWriteLn('X1 = ',X2,' X2 = ',X1);ReadLn;End.

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.