Дано целое четырехзначное число если первая цифра большечем последняя то увеличте в 2 раза иначе в 10 раз . написать программу в паскаль

Спасибо огромное ! Там ещё у меня вопрос на задачу есть . если вам не трудно

http://znanija.com/task/15136192 помогите !!!!!)

Var a : integer;Begin  Readln(A);  If (A div 10000 > (A mod 10) then A:=A*2 else A:=A*10;  Writeln(A);end.