Tugas Algoritma "Menampilkan Bilangan Ganjil dari angka 1 s/d 100"

5. Menampilkan bilangan ganjil dari angka 1 s/d 100
Jawab:

uses crt;
var I,A: integer;
begin
A:=1;
clrscr;
for I:= 1 to 100 do
begin
if I mod 2= 1 then
write(I:5);
end;
Readln;
end.