Var x,y:real;
begin
write('x = ');
readln(x);
if (x<-4)or(x>4)
then writeln('Функция не определена')
else begin
if x<0
then y:=0
else if x<2 then y:=x*x
else y:=4;
writeln('Y = ',y);
end;
end.
Пример:
x = 1.5
Y = 2.25
Налево,налево,вниз, ,вниз,направо,направо,вверх,вверх,налево,налево,вниз, ,вниз,налево,
итак еще4 раза
А) для представления объектов окружающего мира могут быть использованы: макет застройки жилого района и фотоснимки движения воздушных масс;
б) для объяснения известных фактов могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека;
в) для проверки гипотез и получения новых знаний об исследуемых объектах могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека;
г) для прогнозирования могут быть использованы: фотоснимки движения воздушных масс, расписание движения поездов и модель полёта самолёта новой конструкции в аэродинамической трубе;
д) для управления могут быть использованы: расписание движения поездов.
Ну если же у вас такой же перечень как и у меня.
Операция ИЛИ ( она же or ) является логическим типом