На вход программы, ниже, поданы два числа: 1 и 3. ввести x и y; x=y-x y=2*x x=2*y+x y=y+x/2 ввести x и y какие значения будут выведены в результате ее работы?

Ввод 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.

На выходе 109

program p_1;
var x,y:real;
begin
writeln ('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.