Помогите, прошу вас! Эта задача от Paskal ABC…

program qqq; var x, y: longist; begin readln (x,y); if x>0 then if y>0 then writeln ('I четверть') else writeln ('IV четверть') else if y>0 then writeln ('II четверть') else writeln ('III четверть'); end. Как-то так.