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

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

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

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