Question

Помогите решить скорееееееее

Answer 1

Что-то типа:


uses Crt;
var x, y:real;
begin
ClrScr;
Write('X='); ReadLn(X);
Write('Y='); ReadLn(Y);
if (X>=0) and (x<=3) and (Y>=0) and (Y<=3) then WriteLn ('Yes!!!')
                                           else WriteLn('No...');
ReadLn;
end.