Написать код на языке паскаль.
Сделать блок схему

Блок схемку бы)

program ololo;var x,y:real;beginwriteln('Введите x и y');readln(x,y);if (x<0) and (y<0) then beginx:=x+10;y:=y+10;end;if (x>0) and (y>0) then beginx:=x/2;y:=y/2;end;if x=0 then writeln('Неверное значение');writeln('x=',x,'y=',y);end.

См. файл во вложении