var a,b:array of real;
c,d,n,m,k:integer;


procedure cut(var a,b:array of real;
c,d,n,m:integer);
var k:integer;
begin
for k:=1 to c-1 do
begin;
a[k]:=a[k]/d;
b[k]:=b[k]/d;
end;
for k:=c  to d do
begin;
a[k]:=a[k]*a[k];
b[k]:=b[k]*b[k];
end;
for k:=d+1 to n-1 do
a[k]:=a[k]/6;
for k:=d+1 to m-1 do
b[k]:=b[k]/6;
end;

begin
randomize;
writeln('Введите размерность массивов:');
readln(n,m);
writeln('Введите начало интервала:');
readln(c);
writeln('Введите конец интервала:');
readln(d);
if d<c then
begin;
writeln('c больше d');
exit;
end;
if n<d then
begin;
writeln('n меньше d');
exit;
end; 
if m<d then
begin;
writeln('m меньше d');
exit;
end; 
n:=n+1;
m:=m+1;
setlength(a,n);
setlength(b,m);
for k:=1 to n-1 do
a[k]:=random(10);
for k:=1 to m-1 do
b[k]:=random(10);
cut(a,b,c,d,n,m);
writeln('Массив A:');
for k:=1 to n-1 do
write(a[k],',');
writeln;
writeln('Массив B:');
for k:=1 to m-1 do
write(b[k],',');
writeln;
write('Не вошедшие в интервал(массив A):');
writeln(n-(d-c+2));
write('Не вошедшие в интервал(массив B):');
writeln(m-(d-c+2));
end.