Vark,m:integer; Dat:array[1..10]ofinteger;
Begin
Dat[1]:=2;Dat[2]:=5;
Dat[3]:=8;Dat[4]:=5;
Dat[5]:=4;Dat[6]:=2;
Dat[7]:=0;Dat[8]:=3;
Dat[9]:=4;Dat[10]:=5;
m :=0;
fork :=1to10do
​

ellaandharley30    1   09.12.2020 10:09    0