Напишите программу которая прячет текст между цифрами

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥