Program HelloWorld output var a1 a2 a3 a4 a5 a_mean S_a S_a_mean real

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Program HelloWorld(output);
var a1, a2, a3, a4, a5, a_mean, S_a, S_a_mean: real;
b1, b2, b3, b4, b5, b_mean, S_b, S_b_mean: real;
c1, c2, c3, c4, c5, c_mean, S_c, S_c_mean: real;
d1, d2, d3, d4, d5, d_mean, S_d, S_d_mean: real;
h1, h2, h3, h4, h5, h_mean, S_h, S_h_mean: real;
random_error_a, random_error_b, random_error_c, random_error_d,random_error_c: real;
function h(s: real): real;
var i: integer;
begin
i := 0;
h := 1;
while i < 10 do begin
if frac(s) > 0 then begin
s := s * 10;
i := i + 1;
h *= 0.1;
end else break;
end;
end;
begin
end.