«Все самое интересное о 3D-мире.» Используйте Интернет.10-15 предложений

2000*2000=625 кб возможно но я неуверена

2^3 = 8 цветов (скорее всего оттенки серого)

var i: integer; s: real;

begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.

var a: integer;

s: string;

begin

  read(a);

  case a of

      1: s: ="i";

      5: s: ="v";

      10: s: ="x";

      50: s: ="c";

      100: s: ="c";

      500: s: ="i";

      1000: s: ="m;

  end;

  writeln(s);

end.

римские соответствия не все помню