[Code] Pascal dreht am Rad.

PROGRAM x_BMI_Calc;
USES Crt;

const author = 'x';
const err01 = 'This is no digit.';
const err02 = 'Digit is too small.';
const err03 = 'Digit is too big.';

const err04 = 'You cant be that fat.';
const err05 = 'You cant be that thin.';

var height: integer;
var weight: integer;
var bmi: extended;

BEGIN
 highvideo;
 writeln('BMI-Calc (metric) written by ',author);
 normvideo;

 {* sleep(500); *}

 writeln;
 writeln('Please type your height in centimeters: ');
 readln(height);

 IF height > 250 THEN
 BEGIN
 writeln(err03);
 readkey;
 exit;
 end;

 IF height < 80 THEN
 BEGIN
 writeln(err02);
 readkey;
 exit;
 end;

 writeln;
 writeln('Please type your weight: ');
 readln(weight);

 if weight > 500 THEN
 BEGIN
 writeln(err04);
 readkey;
 exit;
 end;

 if weight < 25 THEN
 BEGIN
 writeln(err05);
 readkey;
 exit;
 end;

 writeln;
 writeln;
 writeln('Your height is ',height,' cm and your weight is ',weight,'?');
 readkey;

 {* bmi formel: w / (h*h) *}
 highvideo;
 bmi := weight / (height / height);
 writeln('Your BMI is ',bmi);
 readkey;

END.

 bmi := weight / (height / height);

BMI-Calc (metric) written by x

Please type your height in centimeters:
180

Please type your weight:
80


Your height is 180 cm and your weight is 80?
Your BMI is 2.4691358024691358E-0002

 bmi := weight / (height * height);