Question

С клавиатуры вводятся положительные числа до тех пор пока не будет введено отрицательное число. Составить программу, выводящую это число на экран.

Answer 1

var a:integer;

begin

   read(a);

   while(a>0) do

      readln(a);

   wrileln(a)

end.