Проблема с выводом паскаль

[EGor3333]

Написал небольшую программу по схеме при выводе пишет что данный тип относится к 'boolean'

var
y,x:real;

begin

  writeln('x='); readln(x);

if (-1/x*x) then (y:=-4)
  else
    if (x<-1) then  y:=1/(x*x)
      else
        
        y:=x*x;
        writeln('y=',y);
       readln(y);
      end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[p51x]

if (-1/x*x)

Что-то вы перепутали. Внимательней.

Сообщение от EGor3333

if (x<-1) then y:=1/(x*x)

А тут даже две ошибки: нет равенства и минус потеряли.

[EGor3333]

Благодарю

[Вадим Мошев]

Кстати, единицу, делённую на икс в квадрате можно записать проще -

1 / x / x

[digitalis]

if (-1/x*x) then (y:=-4)

В одной строчке - сразу две ветви условия охвачены: верхняя и нижняя. Прада, неправильно, но зато краткость какая !
Вадим В древних машинах (компов тогда не было ) типа Минск-22 деление выполнялось значительно медленнее умножения, потому категорически рекомендовалось 1/(x*x)