Бағасы төмен әрі ыңғайлы жұмыс жасау үшін процессор мен жедел жадтың минималды сипаттамасы қандай болу керек?

вместо х ставишь 2,значит у=2-1,у=1,х=у-2,2=4-2,у=х-у,у=2-у,тут у-любое,кроме 2 и более

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

var x,y: real;

begin

  read(x);

  if x< =10 then y: = 210

  else y: = x*x*x;

  writeln(y);

end.