Помогите! Я ничего не понимаю! Составьте программу! Арифметические действия над…

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.