МА
Мiкалай Авсянников
Информатика Паскаль, помогите срочно!!!

Составить программу нужно
И блок-схему

Составить программу нужно
И блок-схему
Точка (1.5;1) попадает.
А чем помочь-то?
В чём, собственно, вопрос?
var x,y:real;
begin
write('x y: '); readln(x,y); writeln((x>=-1)and(x=0)and(y