На вход программы,...

На вход программы, приведенной ниже, поданы два числа: 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;
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.