Какие характеристики имеет научный проект

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.

1. 0,25 кбайт=256 байт = 2048 бит

2. каждый символ - 8 бит

3. 2048/8=256 символов

var a: integer;

begin

  read(a);

  if a mod 3 = 0 then writeln('делится')

  else writeln('не делится');

  readln;

end.

ввод х  | 2

х=х*х      | x=4

у=1-х      |y=-3

х=х*х      |x=16

х=5*х      |x=80

у=у+х    |y=77

у=у*у   

вывод у