Исправьте синтаксические ошибки в следующем фрагменте программы:

a)

var

   I, k: integer;

   S: real;

begin

   k:=81;

   S:=4;

   for I:=1 to k do S:=S/2;

end.

b)

var

   s: integer;

begin

   s:=10;

   s:=s+2;

   for s:=1 to 10 do writeln(s);

end.