В трехзначном числе вычеркнуть крайные цифры. (Дано: 758. Результат 5) ПАСКАЛЬ

Question

В трехзначном числе вычеркнуть крайные цифры. (Дано: 758. Результат 5)
ПАСКАЛЬ

Answer 1

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