Блок-схема по программе на паскале
Необходимо составить блок-схему по программе написанной на паскале. Помогите пожалуйста.
Код:
Var
P:Extended;
i,x:Byte;
Begin
P:=1;
Write('x= ');
Readln(x);
For i:=2 to x do P:=P*i;
Writeln(P:0:0);
Readln
End.
P:Extended;
i,x:Byte;
Begin
P:=1;
Write('x= ');
Readln(x);
For i:=2 to x do P:=P*i;
Writeln(P:0:0);
Readln
End.