Даны два ненулевых числа. Найти сумму
и произведение их квадратов. Язык Pascal

Program ;Var a, b: Integer;BeginWriteLn('Введите а и b: = ');ReadLn(a,b);WriteLn('Сумма: = ', ((a * a) + (b * b)));WriteLn('Произведение: = ', ((a * a) * (b * b)));end.