Даны числа х,у если х меньше у, то вычислить z=x+y, а если нет, то вычислить z= у+х-3 в обоих случаях вывести на экран содержимое ячеек x,y,z

Var
x,y,z:Integer;
Begin
 Read(x,y);
 if (x<y) then z:=x+y
  else z:=y+x-3;
 Writeln(x,' ',y,' ',z);
end.