Код:
var a1,a2,a3,b1,b2,b3,x,y;
(Описать тип не забыли?)
Код:
if sqrt(sqr(a1)+sqr(a2)+sqr(a3)>sqrt(sqr(b1)+sqr(b2)+sqr(b3) then
Закрывающие скобки у sqrt
и тут:
Код:
x:=sqrt(sqr(a1)+sqr(a2)+sqr(a3)/sqrt(sqr(b1)+sqr(b2)+sqr(b3);
и вот тут:
Код:
y:=sqrt(sqr(b1)+sqrt(sqr(b2)+sqrt(sqr(b3)
/sqrt(sqr(a1+sqr(a2)+sqrt(sqr(a3);
Код:
For j:=1 to K do
StringGrid1.Cells[o,j]:=intToStr(j);
For i=1 to L do
StringGrid1.Cells[i,o]:=intToStr(i);
Переменную о опишите и присвойте