ПАСКАЛЬ Дано число. Дать характеристику числа: положительное, отрицательное; чётное, нечётное; целое, не целое.

var a:real; k,m,p:string; Begin writeln('Введите число'); readln(a); if a<0 then k:='отрицательное' else k:=' положительное'; if a=int(a) then m:=' целое' else m:='не целое'; if a/2=int(a/2) then p:=' чётное' else p:=' нечётное '; writeln('число ',a,' - ',k,' ; ',m,' ; ',p); end.