разработать блок схему для решения задачи (составить программу вычисления суммы квадратов всех натуральных чисел от 1 до 20)

program summa;

uses crt;

var i : integer;

sum: real;

begin

sum:=0;

for i:=1 to 20 do begin

sum:=sum + sqr (i) ;

end;

Writeln ('Summa = ', sum) ;

end.

Вот тебе программа на паскале. Она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. Блок схему скину на мыло. Напиши мне его и я тебе скину