Directory of image this file is from
This file as a plain text file

PROGRAM GEWICHT (INPUT,OUTPUT);
VAR GROESSE,GEWICHT,IDEAL,NORMAL:REAL;
    GESCHLECHT:CHAR;
BEGIN
READLN(GEWICHT,GROESSE,GESCHLECHT);
NORMAL:=GROESSE-100.0;
IF GESCHLECHT="M"
THEN  IDEAL:=0.9*NORMAL
ELSE IDEAL:=0.85*NORMAL;
IF GEWICHT<IDEAL*0.97
THEN WRITELN("SIE SIND ZU DUENN!")
ELSE IF GEWICHT>NORMAL
     THEN WRITELN ("SIE SIND ZU DICK!")
     ELSE IF GEWICHT>IDEAL*1.03
          THEN WRITELN ("ES IST ALLES IN ORDNUNG!")
          ELSE WRITELN ("SIE HABEN IHR IDEALGEWICHT!")
END.