Пользоавтель вводит число целое число. надо вывести на экран сколько в этом числе цифр и положительное оно или отрицательное. например, "это однозначное положительное число". в паскале

бег - баг - шаг

море - горе - гора - пора - пара - кара - каша - даша - душа - суша

миг - маг - мак - чак   - чек - век

бант - кант   - карт - корт - кора - коса

шар - пар - паб - раб - руб - куб

муха - мура - тура - тара - пара - парк - паук - паут - плут - плот - слот - слон

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.

по центру каждой стены  по  стулу  а также в каждый угол по стулу

необходимо (но не достаточно).