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

Var
    i, a, b, c: integer;

begin
    for i := 1 to 10 do
        writeln(i, ^2 = , i * i);
    writeln;
    
    for a := 1 to 10 do
        for b := 1 to 10 do
            for c := 1 to 10 do
                if a * a + b * b = c * c then
                    writeln(a, ^2 + , b, ^2 = , c, ^2);
end.