Дано натуральное двухзначное число.получить трехзначные числа ,образованные при цифр данного числа и цифры 0. pascal

Var     A:
 integer;
begin
writeln('введите двузначное число');
readln(A);
writeln ((A div 10)*100+(A mod 10));
writeln (A*10);
writeln ((A mod 10)*100+(A div 10));
writeln (((A mod 10)*10+(A div 10))*10);
end.