Вывести точные квадраты натуральных чисел, не превосходящие данного числа n на языке vba

N= inputbox("n=? ") for i = 1 to n   s = s & i * i & "; " next i msgbox (s)

program helloworld;

var a: array of integer;

var n, min, max, i, variable: integer;

begin

    min : = 32767;

    max : = 0;

    readln(n);

    for i : = 0 to n do begin  

        readln(variable);

        if (variable > 0) and (variable mod 2 = 0) and (variable > max) then

            max : = variable;

        if (variable > 0) and (variable mod 2 = 0) and (variable < min) then

            min : = variable;

    end;

    if (max < > 0) and (min < > 32767) then

        writeln(min, ' ', max)

    else  

        writeln(-1);

end.

program numberofdifferences;

var sum, a, b: integer;

begin

    sum : = 0;

    readln(a);

    b : = a;

    while a < > 0 do begin  

        readln(a);

        if ((a < 0) and (b > 0)) or ((a > 0) and (b < 0)) then

            sum : = sum + 1;

        b : = a;

        end;

  writeln(sum);

end.