program kateti;
uses crt;
var a,b:integer;
    c:real;
begin
writeln('Введите катеты a,b:');
readln(a,b);
c:=sqr(a)+sqr(b);
c:=sqrt(c);
writeln('Периметр прямоугольного треугольника = ',a+b+c);
end.

program trapecia;
uses crt;
var h,o1,o2,a:integer;
    b:real;
writeln('Высота трапеции =');
read(h);
writeln('Нижнее основание =');
read(o2);
writeln('Верхнее основание =');
read(o1);

a:=(o2-o1)/2;
b:=sqr(h)+sqr(a);
b:=sqrt(b);
writeln('Периметр трапеции =',b*2+o2+o1);
end.

program rastoeanie;
uses crt;
var a:integer;
begin
writeln('Введите расстояние в сантиметрах =');
readln(a);
writeln('В метрах это =',a div 100);
end.