На вход программы, приведенной ниже, поданы два числа: 1 и 3. Ввести x и y; x=y-x y=2*x x=2*y+x…

На выходе 109 program p_1; var x,y: real; beginwriteln ('vvedite x'); readln (X); writeln ('vvedite y'); readln (Y); if X=1 then Y: =3; {на всякий случай, мало ли по клавише тне попадеш) Никак не влияет… Можно ставить другие значения. Эту строчку можно и удалить… }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln (x,',y); readln; end.