Напишите программу, которая запрашивает пять натуральных чисел и выводит 1, если это число нечётное и 0 -- если число чётное.

var a,i :integer;begini:=0;repeati:=i+1read(a);if a mod 2 =1 thenwrite(1) else write(0);until (I<5);end.