разработать блок схему...

разработать блок схему для решения задачи(составить программу вычисления суммы квадратов всех натуральных чисел от 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. вот блок схема. Блок схему скину на мыло. Напиши мне его и я тебе скину