Если что, проверялось только в pascal abc.
uses crt;
var x,a,b,h:real;
begin
writeln(Input a,b,h:);
read(a,b,h);
writeln(x, ,f(x));
x:=a;
while x<=b do
begin
writeln(x, ,(5*power(e,(-x*-x)/2)):0:2);
x:=x+h;
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.