program Noname18;
var prekes, kaina :longint;
    nuolaida, galutine :real;
begin
  WriteLn('Iveskite prekes kaina!');
  ReadLn(kaina);
  WriteLn('Iveskite prekiu kieki!');
  ReadLn(prekes);
  if prekes >= 10 then begin
    WriteLn('Iveskite nuolaida');
    ReadLn(nuolaida);
    galutine := prekes*kaina*(1-nuolaida);
    Write('Galutine kaina: ');
    WriteLn(galutine:10:2);
    ReadLn();
  end
  else begin
    galutine := prekes*kaina;
    Write('Galutine kaina: ');
    WriteLn(galutine:10:2);
    ReadLn();
  end



end.