Ошибки в программе:
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.
var a: array [1..100,1..100] of integer;
i,j,s,sn,n,m:integer;
Begin
read(n,m);
for i:= 1 to n do
for j:= 1 to m do begin
read(a[i,j]);
if (j>i) and (a[i,j]>0) then begin
sn:=sn+1;
s:=s+a[i,j];
end;
end;
writeln(s,sn);
End.