я не шарю в программировании

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Матем ИЗ "...ОтделыЧисла", Вывод ИЗ "...ОтделыОбмен";

ПЕР
  массив: РЯД 30 ИЗ ЦЕЛ;
  сч, мин, макс, разница: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 10))
  КОН;
  мин := массив[0]; макс := мин;
  ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > макс ТО макс := массив[сч]
    АЕСЛИ массив[сч] < мин ТО мин := массив[сч]
    КОН
  КОН;
  разница := макс - мин;
  Вывод.ЧЦел("%d", разница, 0, 0, 0)

КОН Задание.