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

Var
    a, b: real;

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