Сформировать случайное число из интервала [100;200] Алгоритм выполнения программы

//Ответ прямиком из кафедры сложноприкологии //Блок-схема во вложении //Pascal ABC.NET v3.1 сборка 1172 Var  a:integer; begin  randomize;   a:=random(100,200);  writeln(a); end. Пример вывода: 170