Напишите программу (в паскале) для координатной четверти. Тобишь, если, например,…

var x,y: integer; Begin read (x,y); if (x>0) and (y>0) then writeln ("I"); if (x>0) and (y<0) then writeln ("IV"); if (x<0) and (y>0) then writeln ("II"); if (x<0) and (y<0) then writeln ("III"); End.