Практична робота "Агрегатний стан води"середовище програмування Lazarus.

Агрегатний стан води    

У середовищі програмування Lazarus розробіть проект, у якому за введеним значенням температури води буде визначатись її агрегатний стан води.

 procedure TForm1.Button1Click(Sender: TObject);

var

  t:integer;

begin

  t:=StrToInt(edit1.Text);

  if t<0

  then Edit2.Text:= 'Вода перебуває у твердому стані'

  Else if t>100

  then Edit2.Text:='Вода перебуває у газоподібному стані'

  Else Edit2.Text:='Вода перебуває у рідкому стані';

end;