









Ba
̀
i 1: !"#$
%$&'(')*+
,-. !
Program P3203;
Uses CRT;
Var N, i: word;
Begin
write(' Cho số tự nhiên N: '); readln(N);
writeln(N, '=');
i:=2
While N>1 do
Begin
if N div i = 0 then
Begin
write(i, '*');
N:= N div i;
end
else
inc(i);


,>9
Program So_lon;
Var
so1,so2,so3,so4,solon1,solon2,sol
on:Integer;
Begin
Writeln('TIM SO LON NHAT
TRONG 4 SO NGUYEN');
Writeln('Cau truc
If...Then...Else');

Writeln('------------------------
-');
Write('-Nhap so thu nhat: ');
Readln(so1);
Write('-Nhap so thu hai : ');
Readln(so2);
Write('-Nhap so thu ba : ');
Readln(so3);
Write('-Nhap so thu tu : ');
Readln(so4);
If so1 > so2 Then
solon1:= so1
Else
Solon1:=so2;
If so3 > so4 Then
solon2:=so3
Else
solon2:=so4;

Writeln('------------------------
--------------------');
Write('-Nhap so N= ');
Readln(n);
Repeat
i:=2;
While (n Mod i <> 0) And (i
< n ) Do
i:=i + 1;
Write(i:4);
n:=n Div i;
Until n=1;
Writeln;
Writeln(' Bam phim <Enter>
de ket thuc');
Readln
End.