Выполнил действия 1101011(2)-1001(2)

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.