Составить программу в паскаль. Вычислить и запомнить значения функции Yi=X , если Xi<0 Yi=0 , если Xi=0 -1 , если

uses crt;varx, y: array [ 1 . . 20 ] of integer;i : integer;begin clrscr;randomize;writeln ( \' Massiv X : \' );for i : = 1 to 20 do begin x [ i ] : = random ( 20 ) - 10; write ( x [ i ] , \' \' ); end;for i : = 1 to 20 do begin if x [ i ] больше 0 then y [ i ] : = x [ i ]; if x [ i ] = 0 then y [ i ] : = 0; if x [ i ] меньше 0 then y [ i ] : = - 1; end;writeln;writeln;writeln ( \'Massiv Y : \' );for i : = 1 to 20 dowrite ( y [ i ] , \' \' );readkey;end.