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

Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if A div 1000 > A mod 10 then A:=A*2
else A:=A*10;
WriteLn(A)
End.