СРОЧНО
Дан фрагмент программы , допишите раздел объявления переменных.

Begin.
Read (K) ;
C:=K mod 2;
If C=o then V:=true else V:=false;
If V then Write (‘Четное’) else write (‘Нечетное’);
End.

var k,c,o: Integer;V: Boolean;BeginRead(K);C:=K mod 2;If C=o then V:=true else V:=false;If V then Write ('Четное') else write ('Нечетное');End.