Нужно составить блок-схему к . каждый день поль получает карманные деньги на мелкие расходы. из них он тратит 30 пенсов на сладости. это составляет 1/4 часть того, что он покупает ежедневно. поль сберегает 1/3 того, что остается после покупки сладостей.

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.