1) Написать программу,которая вводит таблицу квадратов первых 10 чисел. 2)Найти все натуральные числа а,b,с, из интервала

Задание 1.Используем цикл со счётчиком for.program tablkvadratov;var a,n: integer;begin writeln (\' Число Квадрат\'); a := 1; n := 10; for a:=1 to n do begin writeln (\' \', a,\' \', sqr(a)); end;end.Задание 2:Используем цикл со счётчиком for и конструкцию if...then...else, которая определяет условия, при которых выполняется оператор.program abc;var a,b,c: integer;beginfor a := 1 to 10 dofor b := 1 to 10 dofor c := 1 to 10 dobeginif a * a + b * b = c * c thenwriteln(a:3,b:3,c:3);end;end.