Составить цикл в графике Паскаль​

Компьютеры появились относительно недавно, но они  уже прочно связаны с нашей повседневной жизнью. Компьютеры нас постоянно окружают: современные фотоаппараты, телефоны, планшеты, калькуляторы, эл. часы и т.д.. Они ученым в сложных вычислениям, кому - то в работе, многие используют из для развлечений. На компьютерах в современном обществе держится почти всё, если они исчезнут, то вероятно общество пошатнется. Компьютеры - наши друзья, но стоит знать меру при их использовании (другими словами: "полегче с играми").
*КАК СМОГ

Pascal

 var   
x,y : integer;    
begin 
readln (x,y); 
if (x=0) or (y=0)
then   
begin   
if x = 0 then
     writeln ('Точка лежит на оси y');   
if y = 0 then
     writeln ('Точка лежит на оси x')'   
end 
else 
 begin 
   if (x>0) and (y>0) then
     writeln ('Точка находится в первой четверти'); 
   if (x<0) and (y>0) then
     writeln ('Точка находится во второй четверти'); 
   if (x<0) and (y<0) then
     writeln ('Точка находится в третей четверти'); 
   if (x>0) and (y<0) then
     writeln ('Точка находится в четвертой четверти');
  end; 
end.