Составить программу ,которая выводит квадратный корень заданного числа N,если число положительное и кратное 5 ,в противном случае-квадрат числа

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018//Внимание! Если программа не работает, обновите версию!beginvar N:=readinteger('N='); if (N>0) and (N mod 5 =0) thenWriteln('N=',sqrt(N)) elseWriteln('N=',N**2);end.