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

Program case7;
 Var n:integer;
 a,b:real;
 Begin
 Writeln('введите номер единицы массы N ');
 Readln(n);
 Writeln('введите массу ');
 Readln(a);
 Case n of
 1:Writeln('масса в кг =',a:4:2);
 2:Writeln(' масса в кг =',a*1000:4:2);
 3:Writeln(' масса в кг =',a/1000000:4:3);
 4:Writeln(' масса в кг =',a*1000:4:2);
 5:Writeln(' масса в кг =',a*100:4:2);
 Else Writeln('такого номера единицы массы не существует');
 end;
 Readln;
 End.