AMDUONG PASCAL

var a:longint;
begin
    assign(input,'amduong.inp');reset(input);
    assign(output,'amduong.out');rewrite(output);
    read(a);
    if a < 0 then write(a,' la so am');
    if a = 0 then write(a,' la so khong am khong duong');
    if a > 0 then write(a,' la so duong');
end.