В таком случае, я 1 и 2 стр сохраняю отдельным текстовым файлом, вырезая их из документа (где не ставлю нумерацию страниц), и распечатываю. А остальную часть нумерую, начиная с третьей. Как-то так, один из примитивных вариантов.
2017 делим с остатком на 3 до тех пор пока неполное частное не станет меньше 3. В ответ на первое место записываем последнее неполное частное и приписываем к нему все остатки, слева направо, начиная с последнего. Получим 2202201 в троичной системе счисления
Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.
Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.
Пример:
<span>Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16</span>