Если он пришёл в автостанцию озёрное и хочет отправиться в луговое, ещё одна самая близкая автрстанция к нему это автостанция "Красное" . Отсюда он может выехать в луговое в 9:20 и приехать в 10:30. А если выехать из Заречное то до призода автобус уже уедит.
1Мб = 1024Кб
Т.к. 1 стр. = 4 Кб, то в 1Мб - 256 страниц.
const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.