Так! Лабы по Яву делаются очень просто особенно первые!:
Ты должен понять что там всё строится на условии которое задается  либо оператором if или case!
Ну так как case с первого раза сложно понять то расскажу про if!
Задается логическое условие как в первой лабе!
То есть ты задаешь 2 переменные x, y и задаешь условия:
например:
Uses crt;
var x, y, n: integer;
writeln ('Введите значения точки');
readln (x);
readln (y);
// и тут поперло условие
while n:=1 do begin
n:=1
if (x:=>3 and y:>=2) then  n:=1
else n:=0;
if n:=0 Then writeln("Точка не удвл. условиям")
end;
end.
И так далее строишь условие! оператор While задает те цикл, то ечть пока n будет равно 1 тоесть правде(то есть входит), то мы берем следущие условие, если нет то выходим из цикла и пишем что где и почему и то что наша программа определила что точка удовл. условиям задачи!
ЗЫ: Текст программы может не работать ибо на компе давно нет паскаля написал по памяти! Главное суть уловить!
ЗЫ2: Можно данную прогу написать без  цикла! будет тоже самое!