a)
var
I, k: integer;
S: real;
begin
k:=81;
S:=4;
for I:=1 to k do S:=S/2;
end.
b)
s: integer;
s:=10;
s:=s+2;
for s:=1 to 10 do writeln(s);
