Написать программу для наглядного представления подсчета четных и нечетных чисел. В цикле вводить целые числа x . На каждом шаге выводить значения k1 – количество четных чисел и k2 – количество нечетных. Ввод прекратить, когда модуль разности k1 и k2 превысит значение 3 — Pascal(Паскаль)

uses crt;
var a,k1,k2:integer;
begin
clrscr;
writeln('Вводите четные и нечетные числа');
writeln('окончаеие ввода разность количества четных и нечетных > 3 по модулю');
k1:=0;k2:=0;
repeat
readln(a);
if a mod 2=0 then k1:=k1+1
else k2:=k2+1;
writeln('k1=',k1,'  k2=',k2);
if abs(k1-k2)>3 then write('Конец!');
until abs(k1-k2)>3;
readln
end.