Какие конфигурации необходимо внести в программку образца 16.1 чтоб для числа

Пример 16,1 и 16,2 и 16,3 нету и на каком языке? Если паскаль еще разберусь другие как досадно бы это не звучало нет!

var x:integer;

Begin

write ('Введите х='); readln(x);

if xgt;0 then

 write('Положительное')

else

 write('Отрицательное');

if x=0 then write('одинаково нулю')

end.

ну просто добавить еще одно условие. Ну можно еще условие в условие добавить, а как еще хз.