Pascal. Задачи.

[Немирыч]

Краткая предыстория
Попал в Баум на 1 курс. Учат в расчете с того что в школе мы уже азы языка изучали. А вот нет.
Прошу помочь. Буду очень признателен. Если это делаете за деньги то укажите пож-та сумму. Большими средствами не располагаю(

Задачи:
1.Написать программу
2.Составить хотя бы ручной набросок Блок-схемы по условию

[Вадим Мошев]

Сколько платите за решение этих задач?
400 рублей нормально для вас?

[kuli4ok]

program a1;
var
a, b, c: real;
begin
readln(a, b, c);
if (a+b+c)=2 then
begin
  if (a>b) and (a>c) then
  begin
    if b>c then a:=c
    else a:=b
  end
  else
  begin
    if (b>a) and (b>c) then
    begin
      if a>c then b:=c
      else b:=a;
    end
    else
    begin
      if (c>a) and (c>b) then
      begin
        if a>b then c:=b
        else c:=a;
      end;
    end;
  end;
end
else
begin
  if (a+b+c)>20 then
  begin
  a:=a*a;
  b:=b*b;
  c:=c*c;
  end
  else
  begin
  if (a>b) and (a>c) then a:=34
  else
    begin
    if (b>a) and (b>c) then b:=34
    else
    begin
    c:=34;
    end;
    end;
  end;
end;
writeln(a, ' ', b, ' ', c);
end.

Это первая, вторая чуть позже.

[kuli4ok]

program a1;
const
e = 2.71;
var
z: real;
r, k, t: integer;
begin
readln(r);
k:=round(r*power(sin(r), 3));
t:= k mod 5;
case t of
0: z:=r+abs(sin(r/3));
1: z:=tan(r+2);
2 or 4: z:=power(e, r-1)+arctan(r);
else z:=(ln(r+5))/3.7;
end;
writeln(z);
end.

А вот и вторая.

[Вадим Мошев]

const
e = 2.71;

Вообще не нужно

power(sin(r), 3)

Нет такой функции

z:=tan(r+2);

Нет такой функции

2 or 4:

Неправильно записана ветка оператора case

[kuli4ok]

У меня компилятор PascalABC.net, если писать в Turbo Pascal то

program a1;
const
e = 2.71;
var
z: real;
r, k, t: integer;
function power(a: real; b: integer): real;
var
a_save: real;
begin
a_save:=a;
while b<>1 do
begin
a:=a*a_save;
b:=b-1;
end;
power:=a;
end;
begin
readln(r);
k:=round(r*power(sin(r), 3));
t:= k mod 5;
case t of
0: z:=r+abs(sin(r/3));
1: z:=(sin(r+2)/cos(r+2));
2: z:=power(e, r-1)+arctan(r);
4: z:=power(e, r-1)+arctan(r);
else z:=(ln(r+5))/3.7;
end;
writeln(z);
end.

[yurats]

На FreePascal тоже не компилируется, ругается на математические функции, не может их найти.