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

Var  a,x,s: integer; begin    a: =0;   while a< 50 do begin readln(x);       a: =x*x;     s: =s+a;     end;     writeln(s);   readln; end;

Первая задача:

var digs:String;

   sum, sr:Real;

   i:Integer;

begin

 writeln('Введите 5 чисел через пробел');

 readln(digs);

 digs := digs.Replace(' ', '');

 sum := 0;

 for i := 1 to 5 do

   sum := sum + strToInt(digs[i]);

 sr := sum / 5;

 writeln('Сумма: ' + sum);

 writeln('Сред. арифметическое: ' + sr);

end.

Ввод:

1 2 3 4 5

Вывод:

Сумма: 15

Сред. арифметическое: 3

Вторая задача:

var i:Integer;

begin

 for i := 0 to 10 do

   writeln(i + '^3=' + i**3);

end.

Вывод:

0^3=0

1^3=1

2^3=8

3^3=27

4^3=64

5^3=125

6^3=216

7^3=343

8^3=512

9^3=729

10^3=1000

30 лет назад весь мир заворожённо наблюдал рождение блокбастеров века – «Терминатор», «Звёздные войны», «Робокоп». Советские дети просто зачитывались повестями Кира Булычёва, а любимыми фильмами были «Гостья и будущего» и «Лиловый шар». Волна научной фантастики и роботомании захватила умы советской молодёжи. И посей день, роботы вызывают самый неподдельный интерес у молодого поколения.

На самом деле, история робототехники уходит своими корнями в глубокую древность. Аж за 350 лет до нашей эры был создан первый в истории механический голубь. Его создатель – древнегреческий математик Архит – заложил прочный фундамент для дальнейшего развития механики.

Вообщем, робототехника нам нужна, в наше время роботы нужны, то чего не можем сделать мы , сделают они - роботы.

Ребят почитайте до конца, в конце норм вообще!!! В конце , последнее предложение классное.