Напишите программу по этой схеме начало ввести а, в а> в да(x=a*b) нет(x=a+b) вывод x конец заранее .

Var A,B,X:integer;
begin
readln(A,B);
If A>B then X:=A*B else X:=A+B;
writeln(X);
end.