Напмлиье программу которая производит обмен переменных информатика,сделать задания из прикрепленных скринов ​

Задача 1:

       Dim angle_one, angle_two, angle_three As Integer

       Console.Write("Введите первый угол треугольника: ")

       angle_one = Console.ReadLine

       Console.Write("Введите второй угол треугольника: ")

       angle_two = Console.ReadLine

       angle_three = 180 - angle_one - angle_two

       If angle_one = 90 Or angle_two = 90 Or angle_three = 90 Then Console.WriteLine("Треугольник прямоугольный.")

       If angle_one > 90 Or angle_two > 90 Or angle_three > 90 Then Console.WriteLine("Треугольник тупоугольный.")

       If angle_one < 90 And angle_two < 90 And angle_three < 90 Then Console.WriteLine("Треугольник остроугольный.")

       Console.ReadKey()

Задача 2:

       Dim n, sum As Integer

       n = Console.ReadLine

       For i = 1 To n

           sum += i ^ 2

       Next

       Console.WriteLine("Сумма квадратов от 1 до " & n & " равна " & sum)

       Console.ReadKey()

Язык п.-Pascal ABC

var

 n, m, k, i, j, t: integer;  

 a: array [1..100, 1..100] of integer;  

 b: array [1..100] of integer;

begin

 readln(n, m, k);  

 for i := 1 to n do  

   for j := 1 to m do  

     a[i, j] := (i + j) mod k;  

 for t := 1 to k do  

 begin

   for i := 1 to n do  

     for j := 1 to m do  

       if (not ((t - 1) <> a[i, j])) then

         b[t] := b[t] + 1;

   write(b[t]:3);  

 end;

end.

Объяснение:

можно было и побольше дать, все таки это самое сложное из заданий Т-Т...