Задача на языке Pascal...что не правильно?

[PaScalpel]

Условие :Считайте с клавиатуры число. Если оно отрицательное то измените его знак на положительный (* (-1)), если это целое число то увеличьте его на 1, если это действительное число, отложив дробную часть и уменьшите число на 1. Результат выполнения выведите на экран.

program tehas;
uses crt;
var a,c,d,x,b:real;
begin
clrscr;
writeln('vveditb 4uslo');
readln(x);
a:=-x;
if x<0 then writeln('x= ',a:4:2);
b:=frac(x);
c:=(x-b)-1;
if b>0 {and b<0} then writeln('x= ',c:4:2);
b:=frac(x);
d:=(x)+1;
if b=0 then writeln('x= ',d:4:2);
readkey
end.

Правильно ли сделана задача ?

Если возможно зделать эту задачу другим способом, пожалуйста напишите. Заранее спасибо

[Stilet]

Запусти программу - что выдает? Посчитай на калькуляторе - совпадает?

[RUSt88]

вот всегда поражают такие люди - а правильно ли? а проверить не судьба как работает? если была бы ошибка - тогда был бы вопрос в чем ошибка, а так - чушь, вам тут не преподаватели - а правильно ли малыш написал диктант

раз такие вопросы задаете, наверняка код сведенный у кого-то или где-то, вы даже сами наверняка не сможете ее решить своим умом, что уж говорить о том, чтобы ее закодить