С клавиатуры вводятся положительные числа до тех пор пока не будет введено отрицательное число. Составить программу, выводящую это число на экран.
var a:integer;
begin
read(a);
while(a>0) do
readln(a);
wrileln(a)
end.