Форум АНТИЧАТ - Показать сообщение отдельно

Блин, подправьте, а то без компилятора под рукой фигово.
1.

Код:

var
  i,k:integer;
begin
  k:=2;
  writeln('Skolko wagov??');
  readln(n);
  for i:=1 to n do begin
    k:=k*4;
    writeln(k)    {для отладки}
  end;
end.

Сейчас вторую погляжу. Без компилятора фигово.

2.
sqr(sqr(...sqr(sqr(х+а)+а)+...+а))+а

Код:

var
  x,a,sum,i,k:real;
begin
  writeln('Vvedite X');
  readln(x);
  writeln('Vvedite A');
  readln(a);
  sum:=x+a;
  writeln('Vvedite shag');
  readln(k);
  for i:=1 to k do begin
    sum:=sqr(sum)+a;
     writeln(sum)    {для отладки}
  end;
end.

Если ничего не путаю, то должно работать правильно.