1. задумайте любое трёхзначное число. 2. умножьте задуманное число на 3. 3. к ответу прибавьте 9. 4. к ответу прибавьте 15. 5. из ответа вычтите 3. 6. раздилите ответ на 3. 7. из ответа вычтите задуманное число. сделайте вывод о том, почему при различных исходных данных получается один и тот же результат. ответить.

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

var

i: integer;

s: real;

m: array[1..2,1..6] of real;

begin

s: =0;

for i: =1 to 6 do

begin

readln(m[1,i]);

readln(m[2,i]);

s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;

end;

writeln(s);

end.