Question

опишите функцию random которая генерирует случайные числа в промежутке [2;99]

Answer 1

var a : integer;
begin
a:=random(98)+2 ;
write(a)
end.