PROGRAM Program2; VAR a : Real; BEGIN Write('Unesi broj '); Readln(a); if a>0 then Writeln('Veci od nule'); if a<0 then Writeln('Manji od nule'); if a=0 then Writeln('Nula'); Readln; END.