Некая студентка решила поучаствовать в кастинге конкурса «Мисс Очарование». Для этого она решила сесть на специальную диету. Начальный ее вес составляет N0 кг. Через неделю ее вес стал равен N1 кг, а еще через неделю N2 кг. Определить по сколько % веса каждую неделю теряла студента, сидя на диете.Нужно написать прогу в Pascal abc/

Вот собственно программка, все, что нужно, прокомментированно, писалось на 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.