var x,y:real;
begin
write('cuma=');
readln(x);
if x>=1000 then
y:= (x/100)*10;
x:=x-y;
end;
writeln('skidka=',y:0:0);
writeln('cuma=',x:0:0);
end.
var x,y:real;
begin
write('cuma=');
readln(x);
if x>=1000 then
begin
y:= (x/100)*10;
x:=x-y;
end;
writeln('skidka=',y:0:0);
writeln('cuma=',x:0:0);
end.