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