Тема 3: Условные операторы if, case

В каждой задаче выберите правильный ответ.
Затем нажмите кнопку "Оценить ответ"

var x,c:integer;  b:boolean; 
label me1;
begin
  x:=4; b:= 5<x; c:=31; 
me1: if (x<6) and not b then
   begin  
     x:=x+1; c:=c+x; 
     goto me1; c:=0;
   end else x:=0;
   write(c); 
end.

var n:integer;  
label m2;
begin
  n:=8;  
m2:case (n+3) div 2 of
  1,4..7:begin n:=n-1; goto m2; end;
   0,2:n:=n+2;
     5:begin n:=1; goto m2; end;
   3,4:n:=n+4;
   end;
   write(n); 
end.

var i:integer; s:string;
label rr;
begin
s := 'astrokrau'; i:=2;
rr: if s[i] > 'k' then
  begin
    inc(i); s[i-1]:= succ(s[i]);
    goto rr;
  end;
  write(s);
end.

var x:integer;  
begin
  x:=5;
  if sqr(x)>17  then
  begin
    x:=x-4; if x > sqr(PI) then
      x:= x*x else
      x:= x-8;
  end else
  begin
    if x*4> 12 then x:= x+3;
    x:=x+2;
  end;
  write(x); 
end.

var x:integer;  c:char;
begin
  c:='c';
  case succ(c) of 
   'f','h':x:=1;
  'b'..'e':x:=2;
  'z':x:=5;
  'd':x:=3;
  'a'..'f':x:=-1;
  end;  
 if (x>0) and (x<8) then x:=x+3 else
 x:=x+2;
 if (x>0) and (x<5) then x:=sqr(x) else
 if (x<-2) then x:=x-2 else 
 if x>2 then x:=x mod 3;
 write(x);
end.