Помогите пожалуйста создать блок схему

[maken]

Program Ex;
var
i,y,x,n,k:integer;
s:real;
begin
write('Введите число в 2-ой системе счисления: ');
readln(n);
x:=n;
k:=n;
while x>0 do
begin
x:=x div 10;
inc(y);
end;
for i:=0 to y-1 do
begin
s:=(k mod 10)*Power(2,i)+s;
k:=k div 10;
end;
writeln(s,' - число в 10-ной системе счисления');
end.

[Vanta11a]

Тырк