#h24cfs_807 Mình đoán là vui lòng để tên hiển thị, khả năng rất cao .

#h24cfs_698

Program HOC24;

var i,n,m: longint;

function nt(x: integer): boolean;

var j: integer;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

readln(n,m);

if nt(n) write(n,#32,n,#32,m) else

begin

if n mod 2<>0 then

begin

if (n mod 3=0) then write(3,#32,n,#32,m);

if (n mod 5=0) then write(5,#32,n,#32,m);

end else write(2,#32,n,#32,m);

readln

end.

GIÚP MÌNH SỬA NGỮ PHÁP VỚI, CẢM ƠN Ạ!