Определите значение переменной а после выполнения фрагмента программы: a = -3 if a < 5: a = 5

У нас есть условие a < 5, а само а равно -3.

Условие выполняется, т.к -3 < 5.

Следовательно, a становится равным 5.

Значение переменной а будет равно 5.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходный массив ***');
  var k:=4;
  var a:=MatrRandom(k+1,k+1,-99,99);
  for var i:=0 to k do a[i,i]:=-1;
  a.Println(4); Writeln(4*k*'-');
  var s:=a.ElementsByRow; // последовательность, памяти не занимает
  Writeln('Количество элементов, оканчивающихся на ноль: ',
      s.Where(t->t mod 10=0).Count);
  Writeln('Количество отрицательных элементов: ',
      s.Where(t->t<0).Count);
  Writeln('Количество нулевых элементов: ',
      s.Where(t->t=0).Count);    
  Write('Сумма элементов побочной лиагонали: ');
  var sum:=0;
  for var i:=0 to k do sum+=a[i,4-i];
  Writeln(sum)
end.

В прямоугольном треугольнике должна выполняться теорема Пифагора. Найдем самую длинную строну и проверим, является ли квадрат ее длины суммой квадратов длин двух других сторон. Для того, чтобы избежать ошибок округления примем, что все длины - натуральные числа.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,c):=ReadReal3('Введите через пробел или Enter стороны:');
  if a>c then Swap(a,c);
  if b>c then Swap(b,c);
  if c*c=a*a+b*b then Writeln('Треугольник прямоугольный')
  else Writeln('Треугольник не прямоугольный')
end.

Пример
Введите через пробел или Enter стороны: 6 8 10
Треугольник прямоугольный