Составить программу, вычисляющую сумму квадратов всех чисел от 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.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;