Втрехзначном числе вычеркнуть крайные цифры. (дано: 758. результат 5) паскаль

Program z1;
var y,x:integer;
begin
writeln('введите трехзначное число');
readln(x);
y:=x div 10 mod 10;
writeln(y);
end.