Две задачки на функции Опции

[:phoenix]

1.
X1/2-ln(x+1)
a=0
b=4
шаг=0.25
Составить таблицу значений функции y=f(x) на отрезке a до b с шагом h. Вид функции, значения a, b, h взять из вышеперечисленных данных.
Для построения таблицы значений использовать цикл с предусловием в вариантах с нечетными номерами и цикл с постусловием в вариантах с четными номерами. Таблица должна выводиться на экран в два столбца с заголовками ‘x’ и ‘f(x)’


2.
Вычислить объем детали и её массу, если деталь имеет форму прямоугольного параллелепипеда с 4 сквозными отверстиями цилиндрической формы равных размеров. Размеры детали и плотность заданы.

[FreeMan]

Код

var a,b,c,r,ro:real;
begin
writeln('vvedi storoni (a,b,c), radius otverstia i plotnost'');
writeln('c-storona, paralelnaya otverstiyam');
readln(a,b,c,r,ro);
writeln('V=',a*b*c-pi*r*r*c*4, ' m=',ro*(a*b*c-pi*r*r*c*4));
readln;
end;

Вот так.