program a1;var a,b,c: integer; begin write('Введите три целых числа, разделяя их пробелом: '); readln(a,b,c); if((a+b>c) and (a+ ... Читать дальше »