Dưới đây là một ví dụ về cách chuyển đổi số tự nhiên sang số La Mã trong ngôn ngữ Pascal:

```pascal
program ConvertToRoman;
var
num: integer;
roman: string;
begin
writeln('Nhap so tu nhien: ');
readln(num);

roman := '';

while num >= 1000 do
begin
roman := roman + 'M';
num := num - 1000;
end;

if num >= 900 then
begin
roman := roman + 'CM';
num := num - 900;
end;

while num >= 500 do
begin
roman := roman + 'D';
num := num - 500;
end;

if num >= 400 then
begin
roman := roman + 'CD';
num := num - 400;
end;

while num >= 100 do
begin
roman := roman + 'C';
num := num - 100;
end;

if num >= 90 then
begin
roman := roman + 'XC';
num := num - 90;
end;

while num >= 50 do
begin
roman := roman + 'L';
num := num - 50;
end;

if num >= 40 then
begin
roman := roman + 'XL';
num := num - 40;
end;

while num >= 10 do
begin
roman := roman + 'X';
num := num - 10;
end;

if num >= 9 then
begin
roman := roman + 'IX';
num := num - 9;
end;

while num >= 5 do
begin
roman := roman + 'V';
num := num - 5;
end;

if num >= 4 then
begin
roman := roman + 'IV';
num := num - 4;
end;

while num >= 1 do
begin
roman := roman + 'I';
num := num - 1;
end;

writeln('So La Ma tuong ung: ', roman);
readln;
end.
```

Chương trình trên sẽ yêu cầu người dùng nhập một số tự nhiên và sau đó chuyển đổi số đó thành số La Mã. Chương trình sử dụng một vòng lặp để kiểm tra từng giá trị của số và thêm các ký tự tương ứng vào chuỗi số La Mã. Cuối cùng, chương trình sẽ in ra số La Mã tương ứng.