Как в паскале в ответе убрать 0 спереди? пример: 021-вводишь 21-выбивает компьютер ! без огромных кодов на 10 !

Так :)
program p1;
var a:integer;
begin
writeln('Введите число: ');
read(a);
writeln('число: ',a);
end.