if odchudzanie=true then begin repeat kg:=kg-1 until kg=54;

Wersja do druku