В Pascal abc нужно отделить целую часть числа. В этой же программе нужно найти гипотенузу прямоугольного треугольника.

[Ree]

Подскажите,пожалуйста:
1.В Pascal abc нужно отделить целую часть числа 34.5.Чтобы осталось только 34.
2.В этой же программе нужно найти гипотенузу прямоугольного треугольника.
Прошу помочь,ибо срочно нужно-к завтрашнему дню.

[BDA]

1) ceil
2) Теорема Пифагора

UPD
Serge_Bliznykov, ага, я тупанул.

[Serge_Bliznykov]

1) trunc()

var r : real;
begin
  r := 34.5;
  WriteLn(' целая часть = ', trunc(r))
end.