01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / TOCHKA

 PROGRAM tochka;
   var
   x,y:real;
   begin
   { ‚ў®¤ Ёб室­ле ¤ ­­ле }
   write('ўўҐ¤ЁвҐ Є®®а¤Ё­ вл в®зЄЁ:');
   readln(x,y);
   if (x>0.0) and (y>0.0) then writeln('в®зЄ  ­ е®¤Ёвбп ў ЇҐаў®© зҐвўҐавЁ');
   if (x<0.0) and (y>0.0) then writeln('в®зЄ  ­ е®¤Ёвбп ў® ўв®а®© зҐвўҐавЁ');
   if (x<0.0) and (y<0.0) then writeln('в®зЄ  ­ е®¤Ёвбп ў ваҐв쥩 зҐвўҐавЁ');
   if (x>0.0) and (y<0.0) then writeln('в®зЄ  ­ е®¤Ёвбп ў зҐвўҐав®© зҐвўҐавЁ');
 end.