Напишите программу, вычисляющую значение функции:
y =
-1 при x<0
0 при x=0
1 при x>0

В условии опечатка: два раза написано x < 0.

1) Если функция имеет вид y = 1 при x > 0, 0 при x = 0, -1 при x < 0:

var

  x: real;

  y: integer;

begin

  readln(x);

  if x > 0 then

    y := 1

  else if x = 0 then

    y := 0

  else

    y := -1;

  writeln(y)

end.

2) Если функция имеет вид y = 1 при x < 0, 0 при x = 0, -1 при x > 0, надо поменять местами 1 и -1 в решении выше.

shift+ ctrl, эти клавиши шифт и контрл расположены в 2 сторонах клавиатуры, слево и справа, имеют специфические названия левый и правый шифт и контрл, особенности заключаются в том что возможна а компьютетре или ноутбуке есть возможность переключения языков шифт и альт, 

название клавиши ереключения регистров capslock , так же есть возможность зажатой левой шифт и любая буква

var a: array[1..5,1..3] of integer;

i,k,j,min,max: integer;

begin

  min=1000;

  max=-1000;

  for i: = 1 to 5 do

      for j: = 1 to 3 do begin

        a[i,j]: = random(256);

      if min> a[i,j] then min: =a[i,j];

          if max< a[i,j] then max: =a[i,j];

  end;

  writeln(min, max);

end.