Question

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

Answer 1

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

Answer 2

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

3a59713440b5d22ccbd19857cb60d4c2.txt

Answer 3

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