Может нужно писать в предпоследней строчке так:
.... z:0:3 ... -- вместо запятой должно стоять двоеточие
Просто не очень понятен вопрос....
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.
Есть специальные программы, которые позволяют передавать файлы. Одной из таких является программа BlueSoleil.
Ответ врде будет
x=2.5+x2