program  noyabrz2;
uses crt;
var  a,x,y,z:integer;
begin
clrscr;
for a:=200  to   400 do   begin
x:=a mod 10; y:=(a div 10) mod 10; z:=a div 100;
if (x=5) OR (y=5) and (5=z)  then




 writeln ('a=',a);


end;
readkey;
end.