Вычислите заданное целочисленное выражение для данных a, b. Результат Х - тоже целочисленный. Исходные данные и результат должны проверяться на область допустимых значений. С++

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один

хвалебный                                                                     

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.