Вот собственно программка, все, что нужно, прокомментированно, писалось на Turbo Pascal, от Pascal ABC данная версия не значительно отличается.
Program Tolstushka;
Uses
Crt;
Var
N0, N1, N2, X1, X2, X3: byte;
begin
Clrscr;
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.
Насколько я знаю в любой сборке Delphi есть компонент "Application Events", у которго есть соответствующее событие "OnShortCut", так вот разместите на форме данный компонент (в 7 версии Delphi он должен лежать во вкладке "Additional") и запишите в его свостве OnShortCut следующее:
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
If Msg.CharCode = Ord('G') then
Form1.Close;
end;
Ord('G') - функция возвращающая код символа, в её параметр записывайте непосредственно тот символ, по нажатию которого должна прекратить работу ваша программа.
