ind:=0;
s:=1;
for i:=1 to 30 do
if A=0 then
begin
s:=s*i;
B[ind]:=i;
inc(ind);
end;
Страницы в контакте нет, можно просто нажать "Спасибо".
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.