3.11/BMI index

[blue_baron]

Napíšte program, ktorý vypočíta BMI index a vypíše, či máte alebo nemáte nadváhu. BMI = telesný hmotnostný index, vyráta sa ako podiel hmotnosti v kilogramoch a druhej mocniny výšky v metroch , BMI < 18,5 podváha, 18,5<=BMI<25 normálna hmotnosť, 25<=BMI<30 nadváha, BMI>30 obezita.


program BMI_INDEX;
uses crt;
var A,B,x:real;

begin
clrscr;
textcolor(6);
writeln('zadajte svoju hmotnost v kilogramoch');
readln(A);
writeln('zadajte svoju vysku v metroch');
readln(B);
x:= A/sqr(B);
clrscr;
textcolor(11);
if (x<18.5) then writeln('trpite podvahou')
else if (18.5<=x) and (x<25) then writeln('mate norm lnu hmotnost')
else if (25<=x) and (x<30) then writeln('trpite nadv hou')
else if (x>30) then writeln('trpite obezitou');
readln;
end.