Число 1910=100112 в однобайтовом формате:​

двоичная (10000), восьмеричная (20), шестнадцатеричная (10)

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

сетевые устройства наверное, если по минимуму

var a,b,c: integer;

begin

  read(a,b,c);

  if a> =0 then writeln(a);

  if b> =0 then writeln(b);

  if c> =0 then writeln(c);

end.