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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.