очень нужно
Условный оператор
if a mod 2=0 then write('Да') else write('Нет') позволяет определить, является ли число четным

двоичным

двузначным

var

i,n: integer;

a: array [1..100] of integer;

begin

readln(n);

for i: =1 to n do

begin

if i mod 2 =0 then a[i]: =i-3

else a[i]: =i+3;

writeln(a[i]);

end;

end.

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.

var x,y: real;

begin

  read(x);

  if x< =10 then y: = 210

  else y: = x*x*x;

  writeln(y);

end.

y=2,5*x

x=x*x  |x^2

y=y*x  |2.5*x^3

y=y+1 |1+2.5*x^3

y=y-x  |1+2.5*x^3 - x^2

x=x*x  |x^4

y=y+x  |1+2.5*x^3 - x^2=x^4

y=y*y