Решите пожалуйста на языке Pascal

var n,i,c,a:integer;
begin
writeln('год'); 
read(n);
i:=n div 100 ;
c:=i+1;
writeln('век');
writeln(c);
a:=n-(i*100);
writeln('с начала века прошло');
write(a);
end.