Question

Даны цифра a и b. Если a>b вычеслить сложение в противном случае вычеслить умножение

Answer 1

Var
    a, b: real;

begin
    readln(a, b);
    if a > b then
        writeln(a + b)
    else
        writeln(a * b)
end.