Составить программу на языке Паскаль если два числа положительные, то возвести оба числа в квадрат если оба числа отрицательные, то найти их модуль

Почему 3 раза end?

var a,b: integer;beginreadln(a,b);if((a<0)and(b<0)) then writeln(-a,' ',-b)elsebeginif((a>=0)and(b>=0) then writeln(a*a,' ', b*b)else writeln('Заданные числа не соответствуют условиям');end;end.end.