написать программу которая бы по введеному номеру единицы измерения (-дециметр метр километр,миллиметр)выдавала бы соответствующие значения отрезка в метрах

var a:longint; b:string; begin writeln('Введите длину'); readln(a); writeln('Введите единицы измерения (метры/дециметры и т.д.)'); readln(b); if b='метры' then writeln(a, ' метров') else if b='дециметры' then writeln(a/10, ' метров') else if b='километры' then writeln(a*1000, ' метров') else if b='миллиметры' then writeln(a/1000, ' метров'); end.