Срочно очень надо срочно пожалуйста Пожалуйста посчитайтеРешить задачи: 1."С клавиатуры вводим гипотенузу и катет. Найти второй катет"2."Вычислить стоимость покупки со скидкой:общая цена покупки А руб., скидка С %"

Ниже

1.

program qq;

var a, b, c: float;

begin

read(c, b)

a := sqrt(sqr(c) - sqr(b))

writeln(a)

end.

2.

program qq;

var a, b, c: float;

read(a, b)

b := b/100

c := a * (1 - b)

writeln(c)

end.

Вроде так, не суди строго, на паскале года 1.5 ничего не делал.