15 lines
233 B
ObjectPascal
15 lines
233 B
ObjectPascal
type Days = (Mon,Tue,Wed,Thi,Fri,sat);
|
|
|
|
begin
|
|
for var i:=1 to 5 step 2 do
|
|
Print(i);
|
|
Println;
|
|
|
|
for var i:='5' to '2' step -2 do
|
|
Print(i);
|
|
Println;
|
|
|
|
for var i:=Mon to Sat step 2 do
|
|
Print(i);
|
|
Println;
|
|
end. |