Даны 2 переменные а и в. если a> b, то вывести на печать их произведение, в противном случае сумму.

Var A,B : integer;
begin
    Read(A);
    Read(B);
    if A>B then
        Writeln(A*B)
    else 
        Writeln(A+B);
end.