КАК НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ

 program PrimeDivisors; 
var 
  m, n, i, j: integer; 
  isPrime: boolean; 
begin 
  write('Введите число m: '); 
  readln(m); 
  write('Введите число n: '); 
  readln(n); 
   
  writeln('Простые числа, которые являются делителями m и n:'); 
   
  for i := 2 to min(m, n) do 
  begin 
    if (m mod i = 0) and (n mod i = 0) then 
    begin 
      isPrime := True; 
      for j := 2 to trunc(sqrt(i)) do 
      begin 
        if i mod j = 0 then 
        begin 
          isPrime := False; 
          break; 
        end; 
      end; 
       
      if isPrime then writeln(i); 
    end; 
  end; 
end.