В паскале или где? А то сделаю не там где надо
Помню, на сайте была табличка :)
Возможно, это, вы имели ввиду?)
Var n,i,k:integer;
a:array[1..4096] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if (a[i]<=2) and (a[i]>0) then k:=k+a[i];
end;
writeln('Summa = ',k);
<span>end.</span>
Свойство операций, позволяющее восстановить последовательность их выполнения при отсутствии явных указаний на очерёдность при равном приоритете.
var s : string;
begin
while (length(s)>0) do begin
s:=copy(s,1,length(s)-1);
write(s);
writeln;
end;
end.