Составить программу в паскале,! составить программу вычисления максимального значения функции y=x^2-3x+lnx при изменении аргумента x в интервале 1< =x< =5 с шагом 0.5

1. современный вариант // pascalabc.net 3.2, сборка 1359 от 11.12.2016 // внимание! если программа не работает, обновите версию! begin   print(range(1.0,5.0,floor((5-1)/0.(x-> x*x-3*x+ln() end. результат 11.6094379124341 2. школьный вариант (ну вот так у нас в школах учат! ) var   x,y,max: real; begin   max: =-1000;   x: =1;   while x< =5 do       begin       y: =sqr(x)-3*x+ln(x);       if max< y then max: =y;       x: =x+0.5       end;   write(max) end.

Program qq;
var i: integer;
m:array[1..10] of integer;
begin
for i:=1 to 10 do 
read(m[i]);
for i:=4 to 8 do
write(m[i],);
end.

Может 100:60?ну это по логике

1. 19
2. -
3. -
4. 5252547
5. -