Как в паскале вычислить периметр и площадь прямоугольного треугольника по заданным двух катетов a и b. скажите как оформляется и что нужно вообще с этим бредом делать?

Program n1; var a,b,s,p: real; begin write ('введите длину катета a: '); readln(a); write ('введите длину катета b: '); readln(b); s: =a*b*0.5; p: =a+b+sqrt(sqr(a)+sqr(b)); writeln('периметр треугольника равен ',p,' площадь треугольника равна ',s); end.

Var a,b,c: integer; begin read(a,b,c);     if (a > b) and (a > c) then          write(a)     else         if (b > a) and (b > c) then          write(b)     else           write(c); end.в делфи добавишь на форму эдиты(4 штуки) и  одну кнопку. в трех эдитах будешь вводить свои значения, а в четвертом выведешь ответ и все это при клике на кнопку: procedure btn1click; var  a,  b,  c, max :   integer;   begin  a: = strtoint(edt1.text); // где edt1,2,3 - имена полей для ввода(эдиты) b: = strtoint(edt2.text); c: = strtoint(edt2.text);     if  (a > b)  and  (a > c)  then            max: = a;       else          if  (b > a)  and  (b > c)  then          max: = b;     else            max: = c; edt4.text: = 'максимальное число' +  max; //или  showmessage(максимальное число' +  max);   end.

Однажды нам предложили сделать робота. вместе с моей подругой мы взялись за это дело - накопали в интернете кучу информации, поискали в журналах и к концу недели всё было готово. осталось самое важное -  как этим устройством? а вдруг, он не поймет мы долго пытались разобраться в этом, но было уже около 4-х часов ночи и мы легли спать. утро. 6.00. будильник. робота нет. мы обыскали всю квартиру, даже в ванную заглянули - нет. потом оказалось, что мы случайно нажали кнопку запуска и еще какую-то, из-за чего робот включился и уполз под шкаф.