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

 

ПОМОГИТЕ ПОДАВАВЛУЙСТА !!!!!!

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