Напишите пожалуйста программу в паскале, "перевод пудов в килограммы"?? очень нужно!!!! спасибо

Program n1;
var a: real;
begin
write('введите кол-во пудов: ');
readln(a);
writeln('это ',a*16.38:6:2,' килограмм');
end.

спасибо