Написать программу вычисления суммы квадрата всех чисел от 21 до 200

program lol (input, output);var I, a:integer;begina:=0;for I:=21 to 200 doa:=a+I;writeln (a);end.