Сторона квадрата задана случайным числом в интервале от 3 до 15 э. найти его площадь s=a^2. в паскале авс

Var
    a: integer;

begin
    a := Random(3, 15);
    writeln('a = ', a, ' S = ', a * a);
end.