Выделить всё

program untitled;

var A:array[1..10] of real;
x, s:real;
i:integer;

BEGIN

	write ('Введите x:');
	read (x);
	
	s:=0;

	for i:=1 to 10 do
	begin
		read (A[i]);
		s := s + A[i];
	end;
		
	s := s/10;
	
	for i:=1 to 10 do
	begin
		if A[i] < x then A[i] := s;
	end;

END.