Значение переменной A - трехзначное натуральное число. Результат - двузначное число B, которое получается из числа A, если вычеркнуть среднюю цифру. Написать программу на Паскале для получения числа

program raf105;

var abc,a,b,c: integer;

begin

write('Введите трёхзначное число: ');

readln(abc);

a:= abc div 100;

b:= (abc div 10) mod 10;

c:= abc mod 10;

abc:= a*10 + c;

writeln('Число без средней цифры: ',abc);

end.