Нахождение функции F(a)

[Forro]

Помогите плз - я в математике оч слаб а тут вообще не разберусь =(((


Дано действительное число а, вычислить F(a), если:

F(x)=-3 при x<=1,
F(x)=y*y в противном случае

[puporev]

Вводишь а.
if a<=1 then F(a):=-3
else F(a):=a*a;
writeln('F(a)=',F(a):5:2);
readln
end.
Если не можешь такое, есть ли смысл учиться?

[Forro]

Если не можешь такое, есть ли смысл учиться?

Я я просто 3 года ничерта не делал - терь на заочное поступил=(((
Вот азы пытаюсь вспомнить.
Огромное спасибо за помощь!