Иван - "первая буква согласная" - нет, "букв меньше 5" - да
var
b, n, s, a: <em>integer</em>;
begin
readln(b, n);
for i: integer := 1 to n do
begin
readln(a);
s += a;
end;
writeln(b >= s ? 'Yes' : 'No');
end.
Там или через теорему Пифагора,либо через площадь
Катет + катет = гипотенуза