Ajrat va hukmronlik qil

mod
1 = 0; 1 va 36 ni 1 ga bo’lgandagi butun son ekranga 
chiqariladi, 36 
div
1 =36; 
d = 2, dxd = 2x2 = 4 < 36 (
rost
), 
sikl davom etadi; 
36 
mod
2 = 0; 
2 va 36 ni 2 ga bo’lgandagi butun son ekranga chiqariladi, 36 
div
2 = 18; 
d = 3, dxd = 3x3 = 9 < 36 (
rost
), 
sikl davom etadi; 
36 
mod
3 = 0; 
3 va 36 ni 3 ga bo’lgandagi butun son ekranga chiqariladi, 36 
div
3 = 12; 
d = 4, dxd = 4x4 = 16 < 36 (
rost
), 
sikl davom etadi; 
36 
mod
4 =0; 
4 va 36 
div
4 = 9 ekranga chiqariladi; 
d = 5, dxd = 5x5 = 25 < 36 (
rost
), 
sikl davom etadi; 
36 
mod
5 <>0, ekranga hech narsa chiqarilmaydi, 
sikl davom etadi; 
d = 6, dxd = 6x6 = 36 < 36 (
yolg’on
), sikl tugatiladi. 
d = 6 (dxd = n), 6x6 = 36 tekshiriladi (
rost
), 6 ekranga chiqariladi. 
Agar sikl dxd <= n
 bo’lguncha 
davom etganda, 
u holda
d = 6 da ekranga 6 va 
36 
div
6 = 6 chiqarilar edi, ya’ni ikkita olti, bu esa xato bo’lar edi 
Dastur
Program
L24a; {Sonning bo’luvchilari. 2 -usul } 
uses
Crt; 
var
n, d : integer; 
begin
write('Butun sonni kiriting '); readln(n); 
writeln(n, ‘sonining bo’luvchilari’); 
d := 1; 
while
d*d < n 
do
begin
if
n 
mod
d=0 
then
write(d, ' ', n 
div
d, ' '); 
d := d + 1 
end
; 
if
d*d = n 
then
write(d); writeln 
end.