Товарищи! ,, верно составить 2 программы в паскале. без вас не справлюсь. заранее ! 1. равны ли площади прямоугольного треугольника с катетами а, в и прямоугольного треугольника с катетами k, m. 2. дано трехзначное число. определить, какая из его цифр больше первая или вторая.

1var     a, b, k, m: real; begin     writeln('введите поочерёдно катеты a, b, k и m: ');     readln(a, b, k, m);         if (0.5 * a * b) = (0.5 * k * m) then         writeln('площади треугольников равны! ')     else writeln('площади треугольников не равны! '); end. 2var     number, firstdigit, seconddigit: integer; begin     write('введите число: ');     readln(number);         if ((number > = 100) and (number < = 999)) or ((number < = -100) and (number > = -999)) then         begin             firstdigit : = number div 100;             seconddigit : = (number div 10) mod 10;                         if (firstdigit > seconddigit) then                 writeln(firstdigit, ' > ', seconddigit)             else if (firstdigit < seconddigit) then                 writeln(firstdigit, ' < ', seconddigit)             else writeln(firstdigit, ' = ', seconddigit)         end     else writeln('число не трёхзначное! '); end.

640кбайт 1символ=8бит 64символа=512бит 40строк=20480бит 32страницы=655360бит 655360бит=640кбайт