Написать программу в паскале: Вывести на экран натуральные чётные числа от 10 до 80(While).

var   n: integer :=10;    m: integer :=80; begin;   while n<=m do begin     write (n:3);     n:=n+2   end end. ------------------Результат:-------------------- 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80