{ NADVAHA.PAS } { Program pre zistenie nadvahy. } { } { Author: Juraj Pupak } { Date : 27.10.2006 http://www.trsek.com } program Nadvaha; uses crt; var BMI,vyska,hmotnost : real; begin clrscr; writeln('Program pre zistenie nadvahy.'); writeln('-----------------------------'); write('Zadaj svoju hmotnost : '); readln(hmotnost); write('Zadaj svoju vysku : '); readln(vyska); BMI := hmotnost / vyska * vyska; IF BMI < 18.5 THEN begin writeln('Podvaha'); end; IF (BMI >= 18.5) and (BMI < 25) THEN begin writeln('Normalna hmotnost'); end; IF (BMI >= 25) and (BMI < 30) THEN begin writeln('Nadvaha'); end; IF BMI > 30 THEN begin writeln('Obezita'); end; readln; end.