program antichat;
var a,b,c,d :integer {-  с одним типом данных integer}
{А с двумя возможно,или это бред получится?}
var a,b,c,d :integer,real {-  с двумя типами данных integer,real}