Найти значение y=3*cos(x/2)+4 на интервале [2;4] с шагом h=0,2, используя цикл с предусловием.

Решение:
program zadacha_1;
const MaxM = 10;     
h = 0.2;
type myArray = Array[1..MaxM] of real;
var A:myArray; //Результаты будем записывать сюда
x, y:real;
i: integer;
begin
x := 2;
while ((x >= 2.0) and (x  for i:=1 to MaxM do begin   
y := 3*cos(x/2)+4;   
A[i] := y;   
x := x + h;   
end;
end;
for i:=1 to MaxM do  //Вывод массива
write(A[i]:20);
end.