Нужно решить 3 задачи в среде Паскаль

[Jalced]

Вобщем надо решить 3, вроде как простейшие задачки, но у меня ничего не выходит >_< Или ошибка или хрень какая нибудь вылазиет...
Решите хотябы одну для примера плиз, а то даже не знаю на что операться... Заранее спасибо
Задачка 1

Задачка 2

Задачка 3

[MyLastHit]

ошибка или хрень какая нибудь вылазиет...

Кидай свой код, пусть даже не рабочий. Разберемся, починим.
Иначе это только за деньги.

[Jalced]

Сообщение от MyLastHit

Кидай свой код, пусть даже не рабочий. Разберемся, починим.
Иначе это только за деньги.

Ок, вот код от 1 задачи

program lineika;
var
a,t,h,b,h0,d,k:integer;
begin
Writeln ('Vvedi h0,h,b,a');
readln (h0,h,b,a);
k:=sqrt(h0-b)-sqrt(h-b-(h-h0)*((a*a)/(a-2*b)*(a-2*b)));
Wruteln ('Vvedi a,b');
readln (a,b);
t:=((2*k)/0.82*3.14*(a*a)*sqrt(2*9.81))*(a*a)*((a-2*b)*a-2*b))/(a*a)-((a-2*b)*a-2*b));
end;

[MyLastHit]

const
  a = 3.52;
  h = 1.27;
  b = 0.150;
  h0 = 0.635;
  d = 0.036;
  m =0.82;
  g = 9.81;
var
  f,F0,FF,K,t:real;
begin
  F0 := sqr(a);
  f := pi*sqr(d)/4;
  FF := sqr(a-2*b);
  k := sqrt(h0-b)-sqrt(h-b-(h-h0)*F0/FF);
  t:=2*k*F0*FF/(m*f*sqrt(2*g)*(F0-FF));
  writeln(t:6:6);
  readln;
end.

[Jalced]

MyLastHit омг Оо Спс большое, щас нада будет сидеть смотреть че я не так делал -_-
Тока маленький трабл, в паскале при запуске он выдает ошибку invalid floating point operation
upd Посмотрел, понял ошибку...
upd 2 А мне препод говорил, чтобы в квадрат возвести, нада число само на себя умножать -_-

[MyLastHit]

Пересмотри еще раз код. Я там кое что исправил.
В квадрат можно по разному возводить. Можно само на себя умножить, а можно воспользоваться функцией sqr();

[Jalced]

Сообщение от MyLastHit

Пересмотри еще раз код. Я там кое что исправил.
В квадрат можно по разному возводить. Можно само на себя умножить, а можно воспользоваться функцией sqr();

Угу с переводом велечин был трабл. Спасибо. Щас буду пытаться сделать 2 задачу, если будут вопросы - напишу сюда =)

[Jalced]

Собственно снова что то не так)
upd Все решенно =)