На вход поступает целое число. Программа должна вывести True, если введённое значение является положительным число, в противном случае False. Сделать задачу необходимо сделать без использования условного оператора.​

​

Программа с массивом (хотя он тут и не нужен):
var a:array[1..60] of char;
st:string; i,p:integer;
begin
writeln('Введите массив символов:');
readln(st);
writeln('Вот массив:');
for i:=1 to length(st) do 
 begin
 a[i]:=st[i];
 write(a[i]);
 end;
writeln;
st:=' '+st+' ';
p:=pos(' mama ',st);
while p>0 do
 begin
 delete(st,p,6);
 insert(' ded ',st,p);
 p:=pos(' mama ',st);
 end;
writeln('Измененный массив:');
for i:=1 to length(st)-2 do 
 begin
 a[i]:=st[i+1];
 write(a[i]);
 end;
writeln;
end.

Пример:
Введите массив символов:
mama papa okno mama primer baba
Вот массив:
mama papa okno mama primer baba
Измененный массив:
ded papa okno ded primer baba

Во первых вычислим сколько битов имеет рукопись автора для этого 16•64•1024•2048=147483648 битов. нам известно что в одном байте 8 битов. из этого следует 147483648:8=131072 байта. в мегабайте 1000000 байтов. из этого 131072:1000000=0,131072 мегабайта рукописи. а еще нам известно что рукопись имеет 2650 иллюстраций по 6 мегабайткаждая.из этого выходит 2650•6=15900 мегабайт
для того чтобы узнать сколько ушло памяти нафлешке 15900+0,131072= 15900,131072≈15900,1311
в одном гиге 1000 мегабайт
15900,1311:1000= 15,9001311 гигабайт. в общем флеш карта заполнена этой рукописью