По представленной блок-схеме составте прогрвэамму и получите результат ее выполения.
Вот. program pr; var s,k,a,i,sr:integer; begin s:=0; k:=100; a:=100; for i:=a downto 11 do begin s:=s+a; k:=k-1; a:=a-1; end; sr:=sqr(s); writeln(sr,' ',k); end.