ввести2 числа .если их сумма больше 100,то напечататьслово "много",в противном случае напечатать слово "мало".
Var x,y:integer; begin writeln('Введите два числа'); readln(x); readln(y); if x+y>100 then wrriteln('Много') else writeln ('Мало'); readln(); end.