Вкомпьютер вводятся два числа. если первое больше второго то вычтслить их сумму иначе произведение после этого компьютер должен напечатать текст решена

Var x,y: integer; 
 begin  write('Введите два целых числа, разделяя их пробелом: ');   
readln(x,y); 
 if x>y then 
writeln('Сумма ',x,' и ',y,' равна ',x+y) 
else 
 writeln('Произведение ',x,' и ',y,' равно ',x*y); 
writeln('Задача решена');
end.