Паскал

[LipSoFAnAnGel]

Имам да направя програма на Паскал на следната функция : f(x)=6x2,x>=0 i 8-6x<0 Ако някой може да ми я напише щше съм му много благодарна...Аз стигам до някъде и не мога да продължа

[nqkuf_tam]

Я дай по-точно условието ...

[LipSoFAnAnGel]

цитирам:Да се състави програма за пресмятане стойността на функцията: f(x)=6x2,x>=0, 8-6x,x<0

[nqkuf_tam]

var x,s:integer;
begin
read(x);
s:=0;
if x < 0 then writeln('x trqbva da e >=')
else
s:=s + 6*2*x;

writeln(s);
end.

Това второто нещо го не схващам ? 8-6x,x<0, но ако е функция по аналогичен начин ..