Var
a,b,c,d:real;
begin
Write('Введите коэффициенты уравнения a,b,c: ');
Readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end.
3 раза прибавляешь 1
3 раза увеличиваешь в 2-е
1 раз прибавляешь 1
И 2 раза увеличиваешь в 2-е
50, если применять способ хранения «бит на пиксель».
Program zadacha;
var
a,b,c:real;
begin
read(a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((c + b) > a) then
write('yes');
end.