Ответы и объяснения

  • jd42
  • середнячок
2013-10-21T09:28:46+00:00
Var
x:integer;

begin
write('Введите X: ')
readln(x);
writeln('Y=', x-x*3/3);
end.