1). реализуйте решение задачи, программируя на Паскале. Единицы массы пронумерованы следующим образом : 1 - килограмм, 2 - миллиграмм, 3 - грамм, 4 - тонна. Дан номер елиницы массы и масса тела М в жтих единицах (М-вещественное число). Вывести массу данного тела в киллограммах. ПОМОГИТЕ ПОДАВАВЛУЙСТА !!!!!!

Var n,x:integer;
    m:real;
begin
writeln(Введите единицу массы);
read (n);
writeln(Введите массу);
read (m);
if (n4) 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.