Дан фрагмент программы , допишите раздел объявления переменных. 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;
Begin
Read(K);
C:=K mod 2;
If C=o then V:=true else V:=false;
If V then Write ('Четное') else write ('Нечетное');
End.