Дан массив значений расстояния L в сантиметрах. Преобразовать значения,…

Uses crt; const N=30; var L: array [1… N] of integer; i: integer; begin for i: =1 to N do begin readln (L[i]); if L[i]>=100 then L[i]: =trunc (L[i]); end; for i: =1 to N do write (L[i]: 3); end.{но в выводе он наравне с метрами будет выводить и не преобразованные сантиметры}