Сгенерировать 5 неповторяющихся случайных целых чисел из интервала от 1 до 45. это работа с множествами Pascal ABC
Program n_2;var i:integer; a:array [1..5] of integer;begin randomize; for i:= 1 to 5 do a[i]:=random(44)+1; for i:= 1 to 5 do writeln('a[i]=',a[i]);end.
тут интервал 45 есть