program Kostyum;

var
totalKostyum, percent, newKostyum, oldKostyum : integer;

begin
totalKostyum := 1200;

write('Введите процент костюмов нового сезона: ');
readln(percent);

newKostyum := round(totalKostyum * percent / 100);
oldKostyum := totalKostyum - newKostyum;

writeln('Количество костюмов нового сезона: ', newKostyum);
writeln('Количество костюмов прошедшего сезона: ', oldKostyum);
end.