На вход программы, приведенной ниже, поданы два числа: 1 и 3.

Ввести x и y;

x=y-x

y=2*x

x=2*y+x

y=y+x/2

Ввести x и y

Какие значения будут выведены в результате ее работы? 

На выходе 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.

Ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

Вывод x = 10, у = 9

Ответ. в результате работы программы получим: х = 10, у = 9.