Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (в pascal)

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; beginreadln(a); write (a div 10); end.

на диске и во перативной памяти информация хранится   двоичном формате и