Не проходит задача дистанционно на сайте: http://informatics.mccme.ru/mod/statements/view.php?id=207
подскажите plis, что у меня не так?
var
a:array[0..100] of integer;
b:array[0..10]of integer;
siz,n,code,k,i,s2,m,t,d,sign : integer;
s1:string;
procedure push(n:integer);
begin
siz:=siz+1;
a[siz]:=n;
write('ok');
end;
procedure pop;
begin
siz:=siz-1;
end;
procedure back;
begin
write(a[siz]);
end;
procedure size;
begin
write(siz);
end;
procedure clear;
begin
while (siz>0) do siz:=siz-1;
end;
procedure ex;
begin
write('bye');
s1:='q';
end;
begin
siz:=0;
repeat
read(s1);
sign:=1;
if (s1[2]='u')then begin
m:=length(s1)-6;
t:=0;
for i:=6 to 6+m do begin
n:=ord(s1[i]);
if s1[i]='-' then begin sign:=-1; continue end;
case n of
48:n:=0;
49:n:=1;
50:n:=2;
51:n:=3;
52:n:=4;
53:n:=5;
54:n:=6;
55:n:=7;
56:n:=8;
57:n:=9
else begin write('error');exit; end;
end;
b[t]:=n;
t:=t+1;
end;
d:=1;s2:=0;
t:=t-1;
for i:=t downto 0 do begin
n:=b[i]*d;
s2:=s2+n;
d:=d*10;
end;
n:=sign*s2;
push(n);
end
else if s1[2]='o' then begin write(a[siz]);pop;end
else if s1[2]='a' then back
else if s1[2]='i' then size
else if s1[2]='l' then begin clear;write('ok');end
else if s1[2]='x' then ex;
until (s1='q');
end.

если бы прочли для начала статью, вы бы не задавали этот вопрос

как зделать что б рандом выдавал значение от -1000 до 1000 в turbo pascal

Опишите конкретно, что именно вы вводили и где именно ошибка

выводит ошибку: ожидалось имя процедуры или функции

в ассемблере я тоже могу получить доступ к любому элементу стека, так что это стек

Надоело искать!( Долго-долго искал, а так и не нашел, может вы поможете

Какой алгоритм запускатеся с randomize? Как именно паскаль генерирует рандомные числа?

Спасибо

класс

Годный код

В статье и расписывается подробно алгоритм.