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

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