SCJ2 No 5

program soal5;
uses crt;
var angka:integer;
begin
        clrscr;
        write('Masukkan angka');
        read(angka);
        if (angka mod 2=0) then
        angka:=angka-1;
        repeat
        write(angka,' ');
        angka:=angka-2;
        until
        angka<1;
readkey;
end.