Дан массив значений расстояния L  в сантиметрах . Преобразовать значения , превышающие 100 см в метры , и округлить до целых .

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. {но в выводе он наравне с метрами будет выводить и не преобразованные сантиметры}