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

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