program z1;
var
a,b,c,d: integer;
begin
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c = ');
readln (c);
write ('d = ');
readln (d);
write ('sr = ',(a+b+c+d)/4)
end.
program z1;
var
a,b,c,d: integer;
begin
write ('a = ');
readln (a);
write ('b = ');
readln (b);
write ('c = ');
readln (c);
write ('d = ');
readln (d);
write ('sr = ',(a+b+c+d)/4)
end.