В Lazarus создаём Edit1, Label1, Button1 и для Button1 в обработчик Click

var x, f(x): real;

x:=strtofloat(Edit1. Text);

If (x<3) or (x=3)

Then f(x):= - 3*x+9

Else f(x):= 1/x*x +1;

Label1.Caption:=floattostr(f(x));