Здравствуйте, dinar.ahmetov.2598!

[code lang=pascal h=200]var
x,y:real;
begin
{вводим координаты}
write('enter x:=');
readln(x);
write('enter y:=');
readln(y);
{проверяем оси координат}
if x=0 then writeln('X-axis')
else
if y=0 then writeln('Y-axis')
else
{проверяем квадранты}
begin
if x*y>0 then
begin
if x>0 then write('I')
else write('III')
end
else
begin
if x>0 then write('IV')
else write('II')
end;
writeln(' - quadrant');
end;
readln;
end.[/code]

Блок-схемы, извольте сами
if - условие - ромбик: да - все, что после then, нет - после else
write|read - ввод|вывод- параллелограмм.
В каждой фигуре пишите, что вводится/выводится/проверяется.
Удачи!