Помогите пожалуйста решить программу Из двух чисел наибольшее увеличить в 2 раза, а наименьшее уменьшить в 2 раза (x,y)
Var x,y,c,d:integer; begin read(x,y); if x>y then c:=a*2 and d:=b/2 else c:=b*2 and d:=a/2; writeln(c,d); end.