Задача 1 Урок 19

Задача 1 Урок 19

Получите случайный набор из 5 чисел, величиной от 1 до 50.
Рассчитайте для каждого числа два его наибольших делителя, число и два делителя храните как запись, а для всего набора используйте массив записей.
Используйте в коде do with
Выведите на экран результаты расчетов для каждого из исходных значений

type Chisla=array [1..5] of record
     chsl,del1,del2:integer;
     end;
var  a:chisla;  min,max,i,j: integer;
begin
  randomize();
  min:=1;
  max:=50;
  for i:=1 to 5 do
  with a[i] do begin
      chsl:=min+random(max-min+1);
      del1:=chsl;
      for j:=2 to chsl do
        if chsl mod j=0 then
        begin
          del2:=chsl div j;
          break;
        end;
      writeln(a[i].chsl,' ',a[i].del1,' ',a[i].del2);
  end;
  readln();
end.