program Komar;
var
s: string;
begin
s := 'комар';
Delete (s, Pos ('ар', s), 2);
WriteLn (s);
ReadLn
end.
