С клавиатуры вводится трехзначное число подсчитать разность его крайних цифр.

program raznost;var a,b,c,r: integer;beginwriteln ('Введите трехзначное число');readln (a);b:=a div 100;c:=a mod 10;if b>c then r:=b-celseif b<c then r:=c-b;writeln ('Разность крайних цифр равна ',r);end.