Некая студентка решила поучаствовать в кастинге конкурса «Мисс Очарование». Для…

Вот собственно программка, все, что нужно, прокомментированно, писалось на Turbo Pascal, от Pascal ABC данная версия не значительно отличается.Program Tolstushka; UsesCrt; VarN0, N1, N2, X1, X2, X3: byte; beginClrscr; TextColor (White); TextBackground (Black); readln (N0, N1, N2); X1: =(N1*100) div N0; {Потеряла веса (в процентах) от первоначального в первую неделю}X2: =(N2*100) div N0; {Потеряла веса (в процентах) от первоначального во вторую неделю}X3: =(N2*100) div N1; {Потеряла веса (в процентах) от веса, потерянного в первую неделю}WriteLn; WriteLn ('Первая неделя: '+', X1 , 'Вторая неделя'+', X2, 'Вторая неделя в сравнении с первой'+', X3); ReadKey; end.