Question

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

Answer 1

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