Program p1; var y:integer; begin write('Введите год, год = '); readln(y); Writeln('Век = ',y div 100); end.