Ошибки в программе:
Program primer - не хватает точки с запятой
Var a,b: integer;
Begin ; - не ошибка, необязательная точка с запятой
ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в :=
m:=a*b;
d:=a:b; - переменная d не была описана; деление - это /
WriteLn(s);
WriteLn(m);
WriteLn(d)
End - не хватает точки.
Исправленная программа:
Program primer;
Var a, b: integer;
d: real;
Begin
ReadLn(a, b);
s := a + b;
m := a * b;
d := a / b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
x,y: real;
end;
var i: integer;
a,b,c: real;
pts: array[1..3] of point;
begin
writeln('координаты точек - через пробел');
for i:=1 to 3 do
begin
writeln('x',i,' ','y',i);
readln(pts[i].x,pts[i].y);
end;
a:=sqr(pts[1].x)+sqr(pts[1].y);
b:=sqr(pts[2].x)+sqr(pts[2].y);
c:=sqr(pts[3].x)+sqr(pts[3].y);
if (a=b) and (a=c) then
writeln('треугольник равносторонний')
else writeln('треугольник НЕ равносторонний');
end.