Привет! Решение данной задачи с использованием динамической структуры данных в Паскале могло бы выглядеть следующим образом:

program RemoveMultiples;
type
TNode = record
data: Integer;
next: ^TNode;
end;
var
head, current, previous, temp: ^TNode;
k: Integer;
procedure AddToList(var head, current: ^TNode; value: Integer);
var
newNode: ^TNode;
begin
new(newNode);
newNode^.data := value;
newNode^.next := nil;
if head = nil then
head := newNode
else
current^.next := newNode;
current := newNode;
end;
procedure RemoveMultiples(var head: ^TNode; k: Integer);
var
current, previous, temp: ^TNode;
begin
current := head;
previous := nil;
while current <> nil do
begin
if current^.data mod k = 0 then
begin
if previous = nil then
begin
temp := current;
current := current^.next;
head := current;
dispose(temp);
end
else
begin
temp := current;
current := current^.next;
previous^.next := current;
dispose(temp);
end;
end
else
begin
previous := current;
current := current^.next;
end;
end;
end;
procedure PrintList(head: ^TNode);
var
current: ^TNode;
begin
current := head;
while current <> nil do
begin
Write(current^.data, ' ');
current := current^.next;
end;
end;
begin
head := nil;
current := nil;
AddToList(head, current, 1);
AddToList(head, current, 2);
AddToList(head, current, 3);
AddToList(head, current, 4);
AddToList(head, current, 5);
Write('Enter the number k: ');
Readln(k);
RemoveMultiples(head, k);
Write('List after removing multiples of ', k, ': ');
PrintList(head);
end.

Это основное решение задачи с использованием динамической структуры данных в виде связанного списка. Надеюсь, это поможет тебе разобраться с темой! Если есть дополнительные вопросы, не стесняйся спрашивать.