Вводится с клавиатуры число Х. Если Х<0, то y=4, если Х=0 то y=2, а если Х<0, то y=х

 если можно  то сразу с дано , контрольным примером, блок схема  и метод решения 

program vndj;

uses crt;

var x,y:integer;

begin

clrscr;

readln(x);

if x<0 then y:=4;

if x=0 then y:=2;

if x>0 then y:=x;

writeln(y);

readln;

end.

Последние условие скорее всего "x>0", ибо ерунда получается

Блок-схему сам рисуй