Листинг программы с решением:
var a,i:integer;
s:real;
begin
for i:=1 to 3 do begin
writeln ('Введите число:');
readln (a);
s:=s+a;
end;
s:=s/3;
writeln(s);
end.
