Дан массив из 20 вещественных чисел заполненный случайным образом

Var i: byte; a: array [0… 19] of real; begin for i: =0 to 19 do begin a[i]: =random (100) / 50; writeln ('[', i, '] => ', a[i]); end; writeln ('-'); for i: =0 to 19 do if (a[i] < 0,5) then writeln ('[', i, '] => ', a[i]); end.=)