1). реализуйте решение задачи, программируя ** Паскале. Единицы массы пронумерованы...

Question

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

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

Answer 1

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.