Очень срочно надо сделать. Помогите пожалуйста!!!!
Пожалуйста мне завтра это уже надо сдать

Нужно решить 2 системы неравенств и сделать по ним программы в Паскале и плюс начертить их блок-схемы.

1)
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x>=2) then
write('y=', 3*x)
else
if (x<=-2)then
write('y не имеет значения')else
write('y=0');
end.

2)
var x:integer;
begin
write('Введите значение х >>> ');
Read(x);
Writeln('==========================');
if (x<0) then
write('y=', x-1)
else
if (x>=5)
then
write('y =',0)
else
write('y=',x);
end.