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

//ответ прямиком из кафедры сложноприкологии
//Блок-схема во вложении
//Pascal ABC.NET v3.1 сборка 1172

Var
 a:integer;
begin
 randomize;
  a:=random(100,200);
 writeln(a);
end.

Пример вывода:
170