Print("ввести 2 числа")a=int(b=int(c=a**0.5+b**0.5print(a**0.5+b**0.5==c)в чём ошибкаесли что вот вычислите длину гипотенузы в прямоугольном треугольнике со сторонами 179 и 971.

Var  a,b,p,n,x,i:integer;
begin
writeln('Сколько примеров будешь решать:');
readln(n);
for i:=1 to n do
  begin
  a:=random(10)+1;
  b:=random(10)+1;
  write('Сколько будет ',a,'+',b,'=');
  readln(x);
  if x=a+b then
    begin
    p:=p+1;
    writeln('Правильно');
    end
    else writeln('Неверно');
  end;
writeln('Число правильных ответов: ',p);
if p=n then writeln('Отлично, ты превосходно знаешь арифметику');
if (p<n) and (p/n>0.75) then writeln('Хорошо, ты неплохо знаешь арифметику');
if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику');
if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику');
if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику');
end.

Можно сделать, чтобы не только на сложение, а на все 4 действия.

//Составить программу заполнения массива случайными числами в диапазоне -30 до 30 и определяет количество чётных элементов массива.​

program massiv;

const N=20;

var m:array[1..n] of integer;// поставил 20 элементов массива

   i:byte;

   count:integer;

BEGIN

//заполнение случайными числа в диапазоне [-30;30]

//random(61) выдает случ. значение от 0 до 60, если вычесть -30 с концов этого отрезка получится от -30 до 30

for i:=1 to n do m[i]:=random(61)-30;

//вывод  полученного массива на экран

writeln('Полученный массив');

for i:=1 to n do write(m[i],' ');

writeln;//переход на следующую строку

//сортировка пузырковым методом

for i:=1 to n do

    if (m[i] mod 2=0) then count:=count+1;

writeln('Кол-во четных элементов = ', count);  

END.

Объяснение: