Question

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

Answer 1

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

Answer 2

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