Нарисовать этот паровоз в pascal abс

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. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину

input x

a=x for i=1 to 30

a=a/100*105

x=x+a

next i

print x end

p.s. байсик я плохо знаю (пишу на c++), возможны синтаксические ошибки, но примерно программа должна выглядить так

просто там будет

a[i]=i-4

а программа обычная делаешь массив   и вставляешь такие числа