Ввести число X. Если X > 0, то вывести ** печать сообщение "число не отрицательное". Для...

Question

Ввести число X. Если X > 0, то вывести на печать сообщение "число не отрицательное". Для отрицательного числа ввод числа повторить. (ПАСКАЛЬ).С ОБЪЯСНЕНИЕМ

Answer 1

Var x:integer;beginreadln (x);if (x>0) then writeln ('число не отрицательное');end.