var f1, f2: text;
a: array [1..5] of integer;
i: byte;
begin
assign(f1, 'songuyen.txt');
reset(f1);
assign(f2,'kluan.txt');
rewrite(f2);
for i:=1 to 5 do
readln(f1,a[i]);
for i:=1 to 5 do
if (a[i] mod 2 = 0) then writeln(f2,'So ',a[i],' la so chan') else writeln(f2,'So ',a[i],' la so le');
close(f1);
close(f2);
end.