Даны 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.