Записать математическое выражение на языке Паскаль

4: 2

2|0

1|0

0|1

4₁₀=100₂

10: 2

5|0

2|1

1|0

0|1

10₁₀=1010₂

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

1996₁₀=11111001100 

100.1010.11111001100     

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

24576/8=3072 символа

ответ: 3072 символа

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n