1. В Паскале:
Ввести три целых величины А, В и С . Если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1, а если это не так, заменить каждую величину её квадратом.

2. В Паскале:
Ввести радиус круга и сторону квадрата. У какой фигуры площадь меньше?

Благодарю Вас!

1.Var  a,b,c:integer;Begin  Write('Введите а, в, с: ');  Readln(a,b,c);  if abs(a+b+c)>3 then write('Их абсолютное значение суммы больше трёх. Уменьшаю на 1 каждое число - ',a,'-1 = ',a-1,',  ',b,'-1 = ',b-1,', ',c,'-1 = ',c-1) else write('Их абсолютное значение суммы не превышает трёх. Показываю квадраты этих чисел - ',a,'^2 = ',sqr(a),', ',b,'^2 = ',sqr(b),', ',c,'^2 = ',sqr(c));End.2.Var  r,a:integer;Begin  Write('Введите радиус круга ');  Readln(r);  Write('Введите сторону квадрата ');  Readln(a);  writeln('S круга = ',sqr(r)*pi,', S квадрата = ',sqr(a));  if (sqr(r)*pi) > (sqr(a)) then write('S круга больше, чем S квадрата') else if (sqr(r)*pi) < (sqr(a)) then write('S квадрата больше, чем S круга') Else write('S круга = S квадрата');End.