Question

(20 баллов) Написать на Pascal фрагмент программы, который запрашивает с клавиатуры ПОЛОЖИТЕЛЬНОЕ число n, до тех пор, пока пользователь не введет верно

Answer 1

var

 n: integer;

 

begin

 repeat

   read(n)

 until n > 0;

end.