If-Then oder Case-else

[b00gie]

Also eine ganz "banale Lösung", jedoch denke ich mal für den Infounterricht gut nachzuvollziehen.
Du brauchst 3 Edits für die Temperaturen, 1 Label für das Ergebnis und 1 Button zum berechnen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i:=0;
  if Edit1.Text<'15' then i:=i+1;
  if Edit2.Text<'15' then i:=i+1;
  if Edit3.Text<'15' then i:=i+1;

  if i=1 then Label1.Caption := 'Stufe 1';
  if i>1 then Label1.Caption := 'Stufe 2';
end;