Составить программу для pascal abc, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда данная тройка натуральных чисел a, b, c является тройкой пифагора, т.е. c^2 = a^2 + b^2.

uses crt; vart1: boolean; a, b, c: integer; beginreadln(a, b, c); if c*c=a*a+b*b then t1: = true else t1: = false; writeln (t1); readkey; end.

Pascalabc.net 3.3, эти строчки надо вставить между begin и end. 1.  20.to(35).print(chr(10)); 2. 10.to(readinteger).select(x -> x*x).print(chr(10)); 3. readinteger.to(50).select(x -> x*x*x).print(chr(10)); 4. readinteger.to(readinteger).print(chr(10)); a.to(b) возвращает последовательность чисел от a до b, select позволяет получить новую последовательность из старой (например, x -> x*x из x делает x в квадрате, то есть это функция, возводящая число в квадрат), print(delim) выводит элементы последовательности с разделителем delim, chr(10) - символ перевода строки.

Uses crt; const n=10; var a: array [1..n] of integer;     x,k,z: integer; begin       k: =0;       for x: =1 to n do       begin           write('a[',x,']: '); readln(a[x]);       end;       write('введите число: '); readln(k);       for x: =1 to n do             if a[x]=k then inc(z);       if z> 0 then  writeln('число ',k,' встречается в массиве ',z,' раз(-а).')             else writeln('число ',k,' не  встречается в массиве'); end.