Var
x: byte;
begin
readln(x);
writeln(sqr(x));
end.
I=4кб=4096 байт= 32768 бит
k=4096 символов
формула: I=i*k, отсюда выражаем i=I:k = 32768:4096=8 бит
2^8=256 символов
A=1
b=7
c=7
d=b^2-4*z*c
if d>0 then x1=(-b-sqr(d))/2*a:x2=(-b+sqr(d))/2*a:Print x1,x2
if d=0 then x=-b/2*a:Print x
if d<0 then Print "Нет решения"
Вот это просто алгоритм можно сказать а на каком языке вы хотите