На Паскале составить программу для нахождения максимума функции Y =|с|e^(сх-х*х) при изменении аргумента Х от а до b с

program ex52;
Uses Crt;
var
h,a,b,x,c: integer;
y,max: real; {max - максимум функции
h - шаг
a,b - диапазон изменения X}
BEGIN
ClrScr;
Write('Введите константу С: ');
ReadLn(c);
Write('Введите начало диапазона А: ');
ReadLn(a);
Write('Введите конец диапазона В: ');
ReadLn(b);
Write('Введите шаг h: ');
ReadLn(h);
x:=a;
while x<b do
begin
y:=abs(c)*exp(c*x-x*x);
if (x=a) or (max<y) then max:=y;
x:=x+h;
end;
writeln('Результат = ', max:5:5);

ReadLn;
END.