var a,b,c:integer;
Begin
read(a,b,c);
if (a>b) then a:=a else a:=b;
if (a>c) then a:=a else a:=c;
writeln(a);
End.
Если после выключения компьютера, тогда жёсткий диск
Var s:string;
i,ser,p2,c:integer;
begin
readln(s);
i:=length(s);
ser:= round(i/2);
p2:=ser+1;
for c:=p2 to i do
write (s[c]);
for c:=1 to ser do
write (s[c])
end.
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 страниц <---- ответ