const
  Pi = 3.14159;
  e = 2.71828;
  sigma = 1.25;

var
  x: array [1..10] of double;
  y: array [1..10] of double;
  i: integer;
begin
  i := 1;
  repeat
    Writeln('Enter ', i, 'th number');
    Readln(x[i]);
    i := i + 1;
  until i > 10;
  for i := 1 to 10 do
    y[i] := (sqrt(2)*Power(e, sqr(x[i])/(2*sqr(sigma)))) / (Power(sigma, 3) * sqrt(Pi));
  i := 1;
  Writeln('i  ', 'x[i]  ', 'y[i]');
  while(i < 11) do
    begin
    Writeln(i, '  ',x[i]:3:3, '  ',y[i]:3:3);
    i := i + 1;
    end;
end.