Информатика даны два целых числа . найти их среднее арифмитическое и средние

Program n1;
var a,b: integer;
begin
readln(a,b);
writeln('срзнач: ',(a+b)/2);
write('сргеом: ',sqrt(a*b));
end.