Напечатайте букву "A" (латинскую) k раз подряд. Число k подается на вход.

readln(k)

for i:=1 to k do

print('A');

100*1000000/8=12500000 байт в секунду

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.