Напишите программу в паскале по этой блок-схеме. Умоляю 20 баллов

Question

Напишите программу в паскале по этой блок-схеме. Умоляю
20 баллов

---

Answer 1

Program
Var
Описание переменных
Формулы
Еnd.

Comments

Можно полную программу????

Answer 2

//Блок схема плохая, но если я ее правильно понял то вотъ
var
a,c:real;
begin
C := 1;
Readln(a);
while c <= 50 do<br>  begin
    C:= C *a;
    Writeln(C);
  end;
end.