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

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