Сколько раз будет выполнен описанный цикл?
for i:=2 to 1 do
t:=random (100);
​

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку