Дано число если оно является не целым то вывести точку, а иначе прямоугольник.

var a:integer;  

begin  

write('введите число');  

read(a);  

if (a>1) then a:=a+1 else a:=a-2;  

write(a);