1. Дан фрагмент программы. Составьте блок-схему и определите значение переменных a, b и s после выполнения следующих операторов:
a := 1;
b := 1;
repeat
a:=a+1;
b:= b*2;
until b >8;
s:=a+b

2. От программы, записанной на алгоритмическом языке, перейдите к записи программы на языке Паскаль. Определите, что будет напечатано в результате работы программы, если были введены следующие числа: 1, 5, -10, 3, -8, 6, 4, 0.
алг
цел s, х
нач
s := 0;
нц
ввод x
s := s + х
кц при х = 0;
вывод s
кон

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

такой адресс получается

var a: array [1..9] of real;

s,p: real;

begin

  p: =1;

  s: =0;

  for i: = 1 to 9 do

  begin

      read(a[i]);

      s: = s+a[i];

      p: =p*a[i];

  end;

  writeln("summa=",s);

  writeln("srednee arefmeticheskoe=",s/n);

  writeln("proizvedenie=",p);

end.