Написать программу на языке паскаль
9. дан массив натуральных чисел а(n), значения элементов которого лежат в диапазоне [200,1000]. найти:
а) сумму элементов массива, цифровая записи которых начинается с цифры 4
б) максимальный элемент среди тех, которые не являются простыми.

y=2,5*x

x=x*x  |x^2

y=y*x  |2.5*x^3

y=y+1 |1+2.5*x^3

y=y-x  |1+2.5*x^3 - x^2

x=x*x  |x^4

y=y+x  |1+2.5*x^3 - x^2=x^4

y=y*y

program num1; uses crt; var x: array[1..10] of real; max: real; i : integer; begin clrscr; for i: =1 to 10 do begin write('x[',i,']='); readln(x[i]) end; max: =x[1]; for i: =1 to 10 do if x[i]> =max then max: =x[i]; writeln('max=',max: 3: 1); for i: =1 to 10 do if x[i]=max then begin x[i]: =0; break end; for i: =1 to 10 do write(' *',x[i]: 3: 1,'* '); end.

таня ест картофель с томатами.

var v,srv,s: real;

begin

  writeln('введите максимальную скорость автомобиля');

  readln(v);

  s: =v*2+(v/4)*3;

  srv: =s/5;

  writeln('расстояние, пройденное автомобилем: ',s,', средняя скорость: ',srv);

end.