Bilangan Ganjil dan Genap

uses wincrt;
var
nilai,y,x,bil:integer;
begin
write('masukan bil : ');
readln(bil);
if bil mod 2=0then
writeln('bil genap')
else
writeln('bil ganjil');
begin
y:=0;
for x:=1 to 5 do
begin
write('nilai ke',x,'=');
readln(nilai);
y:=y+nilai;
end;
writeln('nilai = ',y/5:0:2);
end;
end.