var
s: string;
begin
readln(s);
foreach w: string in s.Split(' ') do
write(w[1] + w.Replace(w[1], '') + ' ');
<span>end.</span>
Program z1;
var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
begin
readln(a[i]);
if a[i] mod 9 =0 then a[i]:=-5;
end;
for i:=1 to 12 do writeln(a[i]);
end.
HDD и магнитных дисков постоянная память.