задача Даны 2 числа, найти сумму и произведение их квадратов
Program z7; Var a,b,sum,pro:integer;Begin write('Введите 1-ое число - '); readln(a); write('Введите 2-ое число - '); readln(b); sum:= a*a + b*b; pro:= a*a * b*b; write('Сумма квадратов - ', sum); write('Произведение квадратов - ', pro); End.