Составьте по блок-схеме программу пожалуйста! 30 баллов​

program blokshema;

var a,c:integer;

begin

    a:=6;

    c:=1;

    repeat

          a:=a-1;

          c:=2*c

    until

         a=1;

    write('a=',a,';c=',c);

end.