Ввести числа через пробел на одной строке. Вывести все числа, пропуская каждое третье.- Pascal(Паскаль)

var num, c: integer;
begin
    c := 0;
    while not eoln do begin
        read(num);
        c := c + 1;
        if c mod 3 <> 0 then writeln(num);
    end;
end.