1). реализуйте решение , программируя на паскале. единицы массы пронумерованы следующим образом : 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна. дан номер елиницы массы и масса тела м в жтих единицах (м-вещественное число). вывести массу данного тела в киллограммах. подававлуйста

Var n,x:integer;
    m:real;
begin
writeln('Введите единицу массы');
read (n);
writeln('Введите массу');
read (m);
if (n<1) or (n>4) then
writeln('ОШИБКА');
if n = 1 then
write (m,' кг');
if n = 2 then
begin
m:=m/1000/1000;
write (m,' кг');
end;
if n = 3 then
begin
m:=m/1000;
write (m,' кг');
end;
if n = 4 then
begin
m:=m*1000;
write (m,' кг');
end;
end.