uses crt; var i:integer; a:array[1..10] of integer;beginrandomize;
for i:=1 to 10 do a[i]:=random(99)+1;
for i:=1 to 10 dobeginif ( (a[i] div 10) + (a[i] mod 10) ) = 5 thenwrite(a[i],' ');
end;writeln;
readln;
end.