Цикл While (Pascal)

1. Какой результат будет получен после выполнения фрагмента программы:

a:=9, b:=8, c:=2

if (a>b) and (b>c) then x:=2*a+b+c

                   else x:=a-b+c;

1. Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;

begin
s:=0;

k:=0;

      while s < 80 do begin

                  s:=s+2*k;

                     k:=k+4;

                     end;

write(s);

end.

1. Определите значение переменной s после выполнения программы:

var s,i:integer;
begin
s:=0; i:=0;
while i<5 do begin

             i:=i+1;

             s:=s+2*i;

             end;
writeln(s);
end.

1. Установите, что будет выведено на экран в результате выполнения следующей программы:

var n,x:integer;

begin

n:=2;

while n<=10 do n:=n*n;

writeln(n);

end.

1. Определите значение переменной s после выполнения программы:

var s,i:integer;
begin
s:=0; i:=10;
while i>5 do begin
             i:=i-1;
             s:=s+i;

             end;

writeln(s);
end.