1) однозначных номеров - 9 страниц (1,2,...,9) - 9 цифр
2) двузначных - 90 страниц (10,11,...99) - 180 цифр
3) осталось 534-9-180=345 цифр
4) 345:3=115 страниц
5) 9+180+115=214 страниц <---- ответ
Program n1;
var
x:integer;
begin
writeln('Введите число'); readln(x);
if (x mod 4=0) then writeln('Является') else writeln('Не является');
end.
program n2;
var
a,b:integer;
begin
writeln('Введите первое число'); readln(a);
writeln('Введите второе число'); readln(b);
if a>b then writeln(a*b*2,' ',(a+b)/2) else writeln((a+b)/2,' ',a*b*2);
end.