На паскале точно все запятые там и ; не помню но как-то так вот.
var a, b, c, d
begin
a:=2;
b:=3;
c:=4;
if a>7 then d:=b + c
writeLn (d<span>);</span>
end.
Program gt;
var b:array[1..100]of integer;
r,i,n,q,min,t:integer;
begin
read(N);
q:=0;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)then begin
q:=q+1;
if(q=1)then begin
r:=i;
t:=b[i];
end;
end;
end;
min:=b[1];
for i:=2 to n do
if(b[i]<min)then min:=b[i];
for i:=1 to n do
begin
if(b[i]=min)then b[i]:=t;
if(i=r)then b[i]:=min;
write(b[i],' ');
end;
end.
Архивация — подготовительная обработка (сбор, классификация, каталогизация, сжатие (для цифровой информации)) данных для долгосрочного хранения или передачи их по сети
Это возможность служит для облегчения работы с файлами
Y=73div8+4=9+4=13
y=13mod5+73=3+73=76
y=76+73*2=146+76=222
Ответ:222
<span>Жезл регулировщика-регулировка движения на перекрестке человеком
</span><span>Современный светофор- автоматическая регулировка движения процессором</span>