20 составить программу, которая вводит 3 любых числа печатает только положительно. напишите все понятно в ! 20

Var
num:real;
begin
for var i:= 1 to 3 do begin
read(num);
if (num < 0) then
continue
else
writeln(num);
end;
end.