Напишите код для обчесленния в среде Lazarus

Создаём Edit1, Label1, Button1 и для Button1 пишем код.

var x, y: real;

x:=strtofloat(Edit1. Text) ;

If (x< - 1)

Then y:=2*x-5

Else If (x>0) and (x<2 or x=2)

Then y:=x+3

Else If (x>3)

Then y:=sqrt 2*x/8;

Label1. Caption:=floattostr(y);