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.
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.