Помогитеее. паскаль.дано слово.заменить пять последних символов кодами этих символов

1

Ответы и объяснения

2013-12-18T22:46:31+04:00
Program gt;
var a,b:string;
l,p,i:longint;
begin
readln(a);
l:=length(a);
b:=copy(a,1,l-5);
for i:=l-4 to l do
begin
p:=ord(a[i]);
b:=b+inttostr(p);
end;
a:=b;
write(a);
end.