всем привет! помогите пожалуйста дана задача:

Question

даны целые числа x и y,не равны друг другу. Меньшее из этих чисел заменить половиной их суммы, а большее их удвоенным произведением. я составила код подскажите ошибки 
var x,y:integer; 
begin 
read(x,y); 
if x>y 
then 
write 'x=',2*x*y; 
write 'y=',(x+y)/2; 
else 
write 'x=',(x+y)/2; 
write 'y=',2*x*y; 
end.не судите строго я только новичок

Радик Тазов · Accepted Answer

ты в программе на экран выводишь, а надо изменить Х и У, попробуй сама 
var x,y:integer; 
begin 
write('vvesti X, Y --> ');readln(x,y); 
if x>y 
then begin 
write ('x= ',2*x*y); 
write (' y=',(x+y)/2); end 
else begin 
write( 'x=',(x+y)/2); 
write (' y=',2*x*y); 
end; 
readln; 
end.