1. Добавьте в описание переменных переменную a
2. код будет такой:
var a0, a1, a2, a3, a: longint;
Begin
read(a3, a2, a1, a0);
a:=a0+a1*10+a2*100+a3*1000;
write(a)
End.
Program z1;
var k,i:integer;
begin
k:=0;
for i:=99 downto 5 do
if (i mod 5=0)and(i mod 7=0) then
k:=k+1;
writeln (k);
end.
При создании папки создается каталог, в котором могут хранится файлы. В файле так нельзя делать, только если это не специальный архив
Var a:array [1..100] of integer;
s,i,k,n:integer;
sr:real;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
s:=0;
k:=0;
for i := 1 to n do
begin
s:=s+a[i];
sr:=s/n;
end;
for i := 1 to n do
if a[i]>sr then inc(k);
writeln('sr=',sr,' k=',k);
readln;
<span>end.</span>
б и в ( а с чем это связано????????????????????‽)