написать программу которая в двух значном числе будет находить первую цифру затем умножать её на 5 и результатом выводить на экран , срочно!!!​

program raf105;

var ab,a: integer;

begin

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

readln(ab);

a:= ab div 10;

a:= a * 5;

writeln('Результат: ',a);

end.