Помогите! я ничего не понимаю! составьте программу! Арифметические действия над числами пронумерованы так: 1 - сложение, 2 - вычитание, 3 - умножение, 4 - деление. Дан номер действия n и вещественные числа a, b (b0). Выполнить над числами указанное действие и вывести результат. Например, n=2, а=0,40, в=1,00. Результат: а-в=-0,60. Единицы длины пронумерованы так: 1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр. Дан номер единицы длины и длина отрезка в этих единицах (вещественное число). Найти длину отрезка в метрах.

var

d:integer;

a, b:real;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

write ('Введите номер операции ') ; readln (d) ;

case d of

1: writeln (a, ' + ', b, ' = ', a + b) ;

2: writeln (a, ' - ', b, ' = ', a - b) ;

3: writeln (a, ' * ', b, ' = ', a * b) ;

4: begin

if b 0 then

writeln (a, ' / ', b, ' = ', a / b)

else

writeln ('делить на 0 нельзя') ;

end;

else

writeln ('Неизвестная операция') ;

end;

end.

//вторая программа

var

d:integer;

a:real;

begin

write ('Длина отрезка = ') ; readln (a) ;

write ('Введите код единицы измерения ') ; readln (d) ;

case d of

1: writeln ('Длина отрезка ', a / 10, ' метр (а, ов) ') ;

2: writeln ('Длина отрезка ', a * 1000, ' метр (а, ов) ') ;

3: writeln ('Длина отрезка ', a, ' метр (а, ов) ') ;

4: writeln ('Длина отрезка ', a / 1000, ' метр (а, ов) ') ;

5: writeln ('Длина отрезка ', a / 100, ' метр (а, ов) ') ;

else

writeln ('Неизвестная единица длины') ;

end;

end.

{ 1 - дециметр, 2 - километр, 3 - метр, 4 - миллиметр, 5 - сантиметр.}

var

units: integer;

value, factor: real;

begin

write ('Введите значение - ') ; readln (value) ;

write ('Введите единицу измерения - ') ; readln (units) ;

case units of

1: factor : = 0.1;

2: factor : = 1000;

3: factor : = 1;

4: factor : = 0.001;

5: factor : = 0.01;

else

factor : = 1;

end;

writeln (value * factor, ' м') ;

end.