Дан массив значений расстояния 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.

{но в выводе он наравне с метрами будет выводить и не преобразованные сантиметры}