Написать программу, которая бы по введенному номеру единицы измерения (1 — килограмм, 2 — миллиграмм, 3 — грамм, 4 — тонна, 5 — центнер) и массе М выдавала бы соответствующее значение массы в килограммах — Pascal(Паскаль)

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.