Путь к файлу не забудь поменять
var
t: text;
st: string;
s, i: integer;
c: char;
begin
s := 0;
st := '';
assign(t, 'ПУТЬ К ФАЙЛУ');
reset(t);
while not eof(t) do
begin
read(t, c);
if (ord(c) <> 13) then
st := st + c
else if TryStrToInt(st, i) then
begin
s := s + i;
st := '';
end
else
st := '';
end;
if TryStrToInt(st, i) then
s := s + i;
close(t);
writeln(s);
end.
26 символов
2 в степени i , i = 5 бит.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b):=ReadInteger2('Введите два числа через пробел:');
if (a>=0) and (b>=0) then (a,b):=(a*10,b*10)
else
if (a>=0) xor (b>=0) then (a,b):=(a*100,b*100)
else
if (a<0) and (b<0) and not a.Between(-7,-3) and
not b.Between(-7,-3-1) then (a,b):=(a*1000,b*1000)
else (a,b):=(a*10000,b*10000);
Println(a,b)
end.