С клавиатуры введите число x . Вычислите значение y-2x

Question

С клавиатуры введите число x . Вычислите значение y-2x

Answer 1

Var x,y:longint;
Begin
Readln(x);
Y:=y-2*x;
Writeln(y);
End.