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

спасибо

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