Question

Прикольную медаль тому кто даст ответ!!!

Как cделать так что бы в паскале выводились четные цифры. от 0 до 100

Answer 1

var
i: byte;
begin
for i:=0 to 100 do 
if i mod 2 = 0 then write(i:4);
end.

Answer 2

точнее for i:=0 to 100