Ví dụ 1: Viết chương trình nhập vào số nguyên dương N, in ra ước số lớn nhất của số N (khác N).

     Var  n, i : integer;

     Begin

          write(‘Nhập số n = ‘);

          readln(n);

          i := n – 1;

          while  n  mod  i <> 0  do

              i := i – 1;

          writeln(‘Ước số lớn nhất của số ‘, n , ‘ là : ‘, i);

          readln;

     End.