Ответ:
Ниже
Объяснение:
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 ничего не делал.