Составить программу ,используя цикл с постусловием: Вывести ** экран все четные числа от...

Question

Составить программу ,используя цикл с постусловием: Вывести на экран все четные числа от 16 до 24! только пожалуйста в паскале

Answer 1

var i:integer;

Begin

  i:=16;

  repeat

     if i mod 2=0 then writeln(i);

     i:=i+1;

  until i>24

End.