Не знаю, зачем такие сложности... Умножь i на t и получишь время)
Общий вес 8192 разделить на количество символов 1024 = 8 битов весит каждый символ
var a,res:integer;
begin
writeln('Введите число');
readln(a);
res:=sqr(a);
writeln('Квадрат числа,'a', равен,'res',');
readln;
end.