Печатать все четные числа от 50 до 100. Паскаль

var     i: integer; begin     for i := 50 to 100 do         if i mod 2 = 0 then             writeln(i); end.