var
z,x,y:longint;
begin
write ('X = > ');readln(x);
write ('Y = > ');readln(y);
z:=(sqr(x+1)*(x-1))-(sqr(18*x*y));
writeln ('Z = ',z);
readln;
end.
Первое и третье, все остальное бесконечно
67 = 1000011 переводит надо делением на 2 столбиком и записывать остаток