Надеюсь, что все понятно)
16*32*60=30720 символов
30720*8=30720 байт=30кбайт
program chizla;
var k,x,i,a:integer;
begin
x:=0;
k:=0;
writeln ('Введите числа');
for i:=1 to 10 do
begin
readln(a);
if a<0 then
k:=k+1;
if a>0 then
x:=x+1;
end;
writeln('Положительных ',x,' Отрицательных ',k);
end.
Неразрывный пробел Ctrl+Shift+пробел
перевод строки, пробел