var a:array[1...10] of integer;
var i, k1, k2:integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
end;
read(k1, k2);
for i := k1 to k2 do
begin
write(a[i], ' ');
end;
end.
Личную
например:группа крови,адрес(где проживаешь)и т.д.
Помоему 1 кбайт.....,.....
На ютюбе есть туториал, уже не помню кто загружал.
Но оно помогает