Написать программу, которая бы по введенному номеру единицы измерения (1- килограмм,

Program massa;var m, a: real;     begin       writeln('Введите массу.');       readln(m);       writeln('Введите единицу измерения массы. 1 - килограмм, 2 - миллиграмм, 3 - гр, 4 - тонна, 5 - центнер.');       readln(a);       writeln('Введённое вами значение одинаково ');        if a=1 then write(m, ' килограмм.');        if a=2 then write(m/1000000, ' килограмм.');        if a=3 then write(m/1000, ' килограмм.');        if a=4 then write(m*1000, ' килограмм.');        if a=5 then write(m*100, ' килограмм.');      end.



меее, немножко с окончаниями напортачила, но если надобно, то можно просто до кг уменьшить и всё будет ок