var n:integer;
begin
writeln ("введите число N");
read(n);
if n>0 then n:=n+1;
if n<0 then n:=n-1;
writeln (n);
end.
<span>а) хранение программ начальной загрузки компьютера и тестирования его узлов</span>
Листинг программы и результат представлены ниже
K := 2;
while k <= N do begin
writeln ( A[k] );
k:=k+2;
<span>end;
</span>