Дано целое число, Если оно неотрицательное, то извлечь из него квадратный корень, в противном прибавить к нему 10.Вывести полученное число

Предыдущий
вопрос Следующий
вопрос

uses crt;

var n:longint;

c:char;

Begin

ClrScr;

Repeat

Write('Целое число (0-exit) >');

Readln(n);

If N>0 then

writeln(N,'>0, корень из ', N, ' = ', sqrt(N):2:2)

else if N<0 then

writeln(N,'<0, ', N, '+10=', N+10);

until n=0;

end.