Информатика помогите​

Question

Информатика помогите​

---

Answer 1

Ответ:

Program xy;

Var a, b:integer;

Write('Введите первое чило'); readln(a);

Write('Введите второе чило'); readln(b);

If a>b then a:=a+b else a:=a*b;

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