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.