program bai_giai;
uses crt;
var n:string;
i:byte;
begin
clrscr;
write('Nhap so: '); readln(n);
for i:=1 to length(n) do
if n[i]='0' then n[i]:='5';
write(n);
readln;
end.
Nhập số n nhưng ta có quyền khai báo n là xâu kí tự, sau đó xử lí trên xâu.
Chạy từ đầu đến cuối xâu sau đó nếu kí tự đó là '0' thì chuyển thành '5'.
Sau đó in xâu ra.