Разработать блок схему для решения задачи

program summa; uses crt; var i: integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+sqr (i); end; Writeln ('Summa=', sum); end. Вот тебе программа на паскале. Она находит сумму квадратов всех натуральных чисел от 1 до 20. Вот блок схема. Блок схему скину на мыло. Напиши мне его и я тебе скину