Program ghyg;
a:integer;
begin
readln(a);
if a > 1000 then print (a*0.85)
else writeln ('Нет скидки');
end.
---------------------------
program trichis;
a,b,c:integer;
begin
readln(a,b,c);
if a>=b and a>=c then writeln(a);
if b>=a and b>=c then writeln(b);
if c>=b and c>=a then writeln(c);
if a<=b and a<=c then writeln(a);<br>if b<=a and b<=c then writeln(b);<br>if c<=b and c<=a then writeln(c);<br>
if a = (a+b+c)/2 then writeln (a);
if b = (a+b+c)/2 then writeln (b);
if c = (a+b+c)/2 then writeln (c);
end.