uses crt;
var a,b,c,d,e,f:integer;
begin
clrscr;
write('Write first number:'); readln(a); writeln('a=',a);
write('Write second number:'); readln(b); writeln('b=',b);
write('Write third number:'); readln(c); writeln('c=',c);
write('Write four number:'); readln(d);writeln('d=',d);
write('Write five number:'); readln(e);writeln('e=',e);
f:=(a+b+c+d+e)/5;
writeln('f=',f);
readkey;
end.