написать программу вычисления значения функции, заданной условиями

[Liubov]

написать программу вычисления значения функции, заданной условиями
3x^2, если 0<=x<1.5
F= |x|,если x<-1
2 в остальных случаях

[Serge_Bliznykov]

Люба, неужели всё НАСТОЛЬКО безнадёжно?!

вот код вашей "сложнейшей" программы:

if (0<=x) and (x<1.5) then F := 3*sqr(x)
else
   if x<-1 
     then F := abs(x)
     else  F:= 2;

[Liubov]

а напишите пожалуйста полностью

[Serge_Bliznykov]

var x, F : real;
begin
  WriteLn('Введите x');
  Readln(x);
  if (0<=x) and (x<1.5) then F := 3*sqr(x)
  else
    if x<-1 
      then F := abs(x)
      else  F:= 2; 
  WriteLn('F = ',F);
  Readln
end.